Delphi Windows Service应用程序能否传入自定义参数？

问题背景 #

我一直用以下命令安装、卸载Delphi编写的Windows服务：
MySrvc.exe /Install /Silent
MySrvc.exe /UnInstall /Silent

现在想传入自定义参数，但发现参数没有出现在ParamStr中。我用这段代码检查参数，结果只有ParamStr(0)（程序名称）被写入C:\ABC\params.txt：

procedure TVPS_Srvc.ServiceExecute(Sender: TService);
var
...
begin
  bJustStarted:=True ;
  try
    while not Terminated do
    begin
      if bJustStarted then
      begin
        sl:=TStringlist.create ;
        sl.Add(paramStr(0)+' '+paramStr(1)+' '+paramStr(2)+' '+paramStr(3)) ;
        sl.SaveToFile('C:\ABC\params.txt');
        Freeandnil(sl) ;
      end;
      ....
end;

核心原因 #

这是因为Windows服务的安装参数和运行参数完全分离：

• 安装时传入的参数是给普通EXE进程的（此时程序以控制台/窗口模式运行，执行安装逻辑）
• 服务实际启动时，是由系统的服务控制管理器(SCM)调用的，SCM不会传递安装阶段的任何参数，所以ServiceExecute中的ParamStr只会包含程序路径（ParamStr(0)）

解决方案 #

方案1：安装时将参数写入注册表，服务运行时读取 #

步骤1：安装阶段解析并保存参数

在处理/Install命令的代码中，解析自定义参数并写入服务对应的注册表项：

procedure HandleInstallCommand;
var
  Reg: TRegistry;
  CustomParam: string;
  I: Integer;
begin
  // 遍历参数，提取自定义参数（示例：匹配/MyParam:xxx格式）
  CustomParam := '';
  for I := 1 to ParamCount do
  begin
    if StartsText('/MyParam:', ParamStr(I)) then
    begin
      CustomParam := Copy(ParamStr(I), Length('/MyParam:') + 1, MaxInt);
      Break;
    end;
  end;

  // 写入服务注册表项
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\TVPS_Srvc', True) then
    begin
      Reg.WriteString('CustomParam', CustomParam);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;

  // 执行默认的服务安装逻辑（比如调用TServiceInstaller.Install等）
  // ... 你的原有安装代码
end;

步骤2：服务运行时读取注册表参数

修改ServiceExecute代码，从注册表读取保存的参数：

procedure TVPS_Srvc.ServiceExecute(Sender: TService);
var
  sl: TStringList;
  Reg: TRegistry;
  CustomParam: string;
begin
  bJustStarted := True;
  try
    while not Terminated do
    begin
      if bJustStarted then
      begin
        sl := TStringList.Create;
        try
          // 读取注册表中的自定义参数
          CustomParam := '';
          Reg := TRegistry.Create;
          try
            Reg.RootKey := HKEY_LOCAL_MACHINE;
            if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\TVPS_Srvc', False) then
            begin
              if Reg.ValueExists('CustomParam') then
                CustomParam := Reg.ReadString('CustomParam');
              Reg.CloseKey;
            end;
          finally
            Reg.Free;
          end;

          // 写入参数到文件
          sl.Add(Format('%s 自定义参数: %s', [ParamStr(0), CustomParam]));
          sl.SaveToFile('C:\ABC\params.txt');
        finally
          sl.Free;
        end;
        bJustStarted := False; // 必须设置为False，避免重复执行
      end;
      // 服务主循环：保持运行状态，比如休眠
      Sleep(1000);
    end;
  except
    // 异常处理逻辑
  end;
end;

方案2：修改服务的启动命令行（ImagePath） #

直接在安装时修改服务的启动路径，把自定义参数追加到ImagePath中，这样服务启动时ParamStr就能直接获取到参数：

安装阶段修改ImagePath

procedure HandleInstallCommand;
var
  Reg: TRegistry;
  ImagePath: string;
  CustomParam: string;
  I: Integer;
begin
  // 提取自定义参数
  CustomParam := '';
  for I := 1 to ParamCount do
  begin
    if StartsText('/MyParam:', ParamStr(I)) then
    begin
      CustomParam := ' ' + ParamStr(I);
      Break;
    end;
  end;

  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\TVPS_Srvc', True) then
    begin
      // 获取原启动路径
      ImagePath := Reg.ReadString('ImagePath');
      // 追加自定义参数（注意路径本身可能带引号，直接追加即可）
      ImagePath := ImagePath + CustomParam;
      Reg.WriteString('ImagePath', ImagePath);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;

  // 执行默认安装逻辑
  // ...
end;

服务运行时直接读取ParamStr

此时ServiceExecute中可以直接通过ParamStr(1)、ParamStr(2)获取参数，同时修正原有代码的bJustStarted问题：

procedure TVPS_Srvc.ServiceExecute(Sender: TService);
var
  sl: TStringList;
  ParamLine: string;
  I: Integer;
begin
  bJustStarted := True;
  try
    while not Terminated do
    begin
      if bJustStarted then
      begin
        sl := TStringList.Create;
        try
          // 拼接所有参数
          ParamLine := ParamStr(0);
          for I := 1 to ParamCount do
            ParamLine := ParamLine + ' ' + ParamStr(I);
          sl.Add(ParamLine);
          sl.SaveToFile('C:\ABC\params.txt');
        finally
          sl.Free;
        end;
        bJustStarted := False;
      end;
      Sleep(1000);
    end;
  except
    // 异常处理
  end;
end;

内容的提问来源于stack exchange，提问作者AFerns100