服务无法启动

Question

我用Delphi创建了一个Windows服务,并使用两种方法来安装,启动和停止.

方法1

如果我使用命令行安装此服务

C:\MyService\ServiceApp.exe /Install

它安装成功,我也可以在服务控制台中启动和停止.

方法2

但如果我使用sc例如安装不同名称的相同服务

C:\Windows\system32>sc create myservice binpath= c:\MyService\ServiceApp.exe

我看到它已安装但我无法使用服务控制台启动服务

sc start myservice

当我使用SC进行查询时,结果如下

C:\Windows\system32>sc query myservice

SERVICE_NAME: myservice
        TYPE               : 10  WIN32_OWN_PROCESS
        STATE              : 2  START_PENDING
                                (NOT_STOPPABLE, NOT_PAUSABLE, IGNORES_SHUTDOWN)
        WIN32_EXIT_CODE    : 0  (0x0)
        SERVICE_EXIT_CODE  : 0  (0x0)
        CHECKPOINT         : 0x0
        WAIT_HINT          : 0x7d0

到目前为止我正在使用/安装,但我想用不同的名称多次安装相同的服务,我从这篇文章中得到了这个想法.(如何从命令行指定名称和描述安装Windows服务？)任何人都可以解释/ Install和SC之间的行为差​​异吗？

Answer 1

您在TService实施中遇到了一个错误,请参阅QC#79781.如果服务名称不同,Delphi将无法启动该服务TService.Name.

但是,您可以通过TService.Name在服务启动之前进行调整来避免此限制.这样做的一个好处是TService.OnCreate事件.你需要知道的服务的真实姓名,所以你需要把它作为参数传递到服务EXE(将其添加到binpath该的sc create命令).

创建服务:

sc create myservice1 binpath= "c:\MyService\ServiceApp.exe myservice1"
sc create myservice2 binpath= "c:\MyService\ServiceApp.exe myservice2"

调整名称:

procedure TMyService.ServiceCreate(Sender: TObject);
begin
  if (System.ParamCount >= 1) and not CharInSet(ParamStr(1)[1], SwitchChars) then
    Name := ParamStr(1);
end;

这是一个有点基本的参数解析方法,但它可以作为一个例子.如果第一个参数不以/or 开头-,则假定它是提供的名称.

备注:

另一个限制TService是它无法/install在命令行中使用参数创建服务(使用),因为它ParamStr(0)用作binpath.