Delphi 无法安装服务

Question

1.在运行 -> 参数 ->Parameters 里填上 空格/install
  ,编译后,运行此程序,无法安装成服务.只有在cmd下输入此程序名 /install才能安装成功
  成功后会提示,我能否不要这个提示?3. 在运行 -> 参数 -> 下:
   Host Application 这一项是否服务启动的程序
   Working Directory 这个所为的工作路径是指什么?我的最终是想写一个服务程序,双击运行后安装一个自动启动服务,完成时没有提示对话筐出现,
可执行文件路径为:c:\test.exe 而不是程序本身.  谢谢!

Answer 1

去掉提示很简单：
这样写参数：/install /silent
可以在一开始执行时，判断自己是否在所要求的路径下，如果不是，
则把自身copy到需要的路径path下，然后执行WinExec(PChar(path+'test.exe'+' /install /silent'),SW_HIDE)
安装成功后会在每次系统启动时执行你的路径下面的那个服务程序。
系统作为服务启动的程序就是你的test.exe里面的ServiceExecute过程。

Answer 2

是否在 在运行 -> 参数 -> Parameters 里填上 /install /silent 
编译后执行是否就会自动安装成服务呢？
还有就是，怎样写上服务的描述呢？TService 有没有这个属性呢？

Answer 3

是在“运行 -> 参数”里设置的啊，cmd下这样输入也可以，我是这样做的，都没有发现异常。
编译后如果用了参数/install 就会安装成服务。
服务描述是在注册表中写的，Tservice属性中没有这个东西。我知道楼主想做什么，以前我也搞过这类东西，呵呵~~