如何把服务应用程序安装命令改成不是默认的 -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