Delphi安装NT服务程序时(不出现提示信息)

如果我们不加上"/silent",那么Delphi在安装和卸载NT服务程序时候,都会出现一个提示信息,不希望出现这个提示信息,那么使用如下命令:

1,安装:“你的nt程序 /install /silent”。

2,卸载:“你的nt程序 /uninstall /silent”。

这是Delphi中注册服务方法声明,Silent是决定是否提示的参数:

procedure TServiceApplication.RegisterServices(Install, Silent: Boolean); 

下面是具体出现提示的代码:

   if Success and not Silent then
      if Install then
        DisplayMessage(SServiceInstallOK, mtInformation)
      else
        DisplayMessage(SServiceUninstallOK, mtInformation);

看到这些,我想大家就知道为什么不加那个"/silent"参数会出现提示了!

http://blog.csdn.net/sunylat/article/details/8847730

posted @   findumars  Views(218)  Comments(0Edit  收藏  举报
编辑推荐:
· 开发者必知的日志记录最佳实践
· SQL Server 2025 AI相关能力初探
· Linux系列:如何用 C#调用 C方法造成内存泄露
· AI与.NET技术实操系列(二):开始使用ML.NET
· 记一次.NET内存居高不下排查解决与启示
阅读排行:
· Manus重磅发布:全球首款通用AI代理技术深度解析与实战指南
· 被坑几百块钱后,我竟然真的恢复了删除的微信聊天记录!
· 没有Manus邀请码?试试免邀请码的MGX或者开源的OpenManus吧
· 园子的第一款AI主题卫衣上架——"HELLO! HOW CAN I ASSIST YOU TODAY
· 【自荐】一款简洁、开源的在线白板工具 Drawnix
历史上的今天:
2012-03-02 使用CRichEditCtrl与正则实现XML高亮编辑器
2012-03-02 两种方法查看MFC源代码
2012-03-02 LLVM CodeExtractor
点击右上角即可分享
微信分享提示