如何获取Windows服务EXE路径，用于安装改名及运行时多实例参数配置？

可以实现，不管是安装阶段修改服务名称，还是运行阶段获取目录作为参数，都能通过获取EXE自身的实际路径来实现。GetCurrentDir返回system32是因为服务默认工作目录为系统目录，但我们可以直接获取进程EXE的路径，不受工作目录影响。

核心思路 #

通过获取当前服务EXE的完整路径，从中提取最后一级目录名（即你方案中的1、2、3），以此作为实例标识，分别用于安装阶段设置服务名称和运行阶段决定服务行为。

具体实现（Delphi） #

1. 辅助函数：提取实例标识

先实现一个通用函数，从EXE路径中提取最后一级目录名：

function GetServiceInstanceID: string;
var
  ExePath: string;
  ExeDir: string;
  LastSlashPos: Integer;
begin
  // 获取当前EXE的完整路径
  ExePath := ParamStr(0);
  // 提取EXE所在目录
  ExeDir := ExtractFilePath(ExePath);
  // 移除目录末尾的路径分隔符
  if ExeDir[Length(ExeDir)] = '\' then
    SetLength(ExeDir, Length(ExeDir) - 1);
  // 定位最后一个路径分隔符位置
  LastSlashPos := LastDelimiter('\', ExeDir);
  // 提取最后一级目录名作为实例ID
  if LastSlashPos > 0 then
    Result := Copy(ExeDir, LastSlashPos + 1, Length(ExeDir) - LastSlashPos)
  else
    Result := '';
end;

2. 安装阶段：自动设置服务名称

修改你提供的ServiceLoadInfo函数，结合辅助函数动态生成服务名和显示名：

procedure TMyService.ServiceLoadInfo(Sender: TObject);
var
  InstanceID: string;
begin
  InstanceID := GetServiceInstanceID;
  if InstanceID <> '' then
  begin
    Name := 'MyService' + InstanceID;
    DisplayName := 'MyService' + InstanceID;
  end
  else
  begin
    // 提取失败时使用默认名称
    Name := 'MyService';
    DisplayName := 'MyService';
  end;
end;

procedure TMyService.ServiceBeforeInstall(Sender: TService);
begin
  ServiceLoadInfo(Sender);
  inherited;
end;

procedure TMyService.ServiceBeforeUninstall(Sender: TService);
begin
  ServiceLoadInfo(Sender);
  inherited;
end;

3. 运行阶段：根据实例标识执行不同行为

在服务运行时的事件（比如ServiceStart）中，调用辅助函数获取实例ID，以此区分不同实例的行为：

procedure TMyService.ServiceStart(Sender: TService; var Started: Boolean);
var
  InstanceID: string;
begin
  InstanceID := GetServiceInstanceID;
  
  // 根据实例ID执行对应逻辑
  if InstanceID = '1' then
  begin
    // 实例1的业务逻辑
  end
  else if InstanceID = '2' then
  begin
    // 实例2的业务逻辑
  end
  else if InstanceID = '3' then
  begin
    // 实例3的业务逻辑
  end;

  Started := True;
end;

有效性说明 #

• 安装阶段：服务安装时，安装程序调用的是对应目录下的MyService.exe /install，此时ParamStr(0)会返回该EXE的实际路径，因此能正确提取目录名。
• 运行阶段：服务启动后，尽管默认工作目录是system32，但ParamStr(0)（或GetModuleFileName）获取的是当前进程EXE的实际磁盘路径，不受工作目录影响。

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