读书人

怎么把服务应用程序安装命令改成不是默

发布时间: 2012-02-25 10:01:48 作者: rapoo

如何把服务应用程序安装命令改成不是默认的 -install?
用delphi创建服务程序,创建服务应用程序后要把服务安装不是默认通过 -install可以安装吗,现在我想把-install改成其它命令

[解决办法]
以D7为例,用delphi的TServiceApplication创建服务程序,就是以intall作为安装的参数开关的。

在VCL的源代码$(DELPHI)\Source\Vcl\SvcMgr.pas 中可以看到TServiceApplication的实现
procedure TServiceApplication.Run;


如果要改为别的命令,可以几种方法
1.不用TServiceApplication,自己调用OpenSCManager,OpenService等Service编写接口实现,

可参考delphi自带的:ScktSrvr这个例子
在D7的安装目录下 $(DELPHI)\Source\Vcl\ScktSrvr.dpr

2.修改VCL吧,,或者自己从TServiceApplication继承一个类,


汗,偶好像很喜欢弄VCL

读书人网 >.NET

热点推荐