Delphi运行时修改服务名称的实现方案咨询（含服务调试代码）

针对你在Delphi 10.2.3里开发的这个服务，想要在运行时修改它的名称，得分两种场景来处理——调试用的控制台模式，还有正式安装后的服务运行状态，我给你详细拆解下：

1. 调试模式（控制台运行）下的修改 #

你现在在DEBUG分支里用控制台启动服务，这种场景下的修改分两部分：控制台窗口的标题，还有服务实例自身的名称标识。

修改控制台窗口标题 #

只要引入Windows单元，调用SetConsoleTitle就能直接改窗口标题，把这段代码加到你的调试块里就行：

{$ifdef DEBUG}
uses
  Windows; // 别忘了加这个单元引用
try
  // 把控制台窗口改成你想要的名称
  SetConsoleTitle('我的调试服务窗口');
  WriteLn('MyServiceApp DEBUG mode. Press enter to exit.');
  
  EseguiProcessiClient := TEseguiProcessiClient.Create(nil);
  // 如果需要修改服务逻辑里用的显示名称，直接改DisplayName属性
  EseguiProcessiClient.DisplayName := '调试版EseguiProcessi服务';
  EseguiProcessiClient.ServiceStart(EseguiProcessiClient, MyDummyBoolean);
  
  ReadLn;
finally
  EseguiProcessiClient.Free;
end;
{$endif}

调试时修改服务实例的名称属性 #

你创建的TEseguiProcessiClient实例，直接修改它的Name（服务内部标识）和DisplayName（友好显示名称）就行，但这些修改只在当前控制台会话里生效，不会影响系统里已经安装好的服务配置，重启控制台就会恢复。

2. 正式安装后的服务运行时修改 #

如果是已经装到系统里的服务，想要改名称就得动Windows的注册表了——服务的核心配置都存在HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\<服务名称>这个路径下。

修改服务的友好显示名称 #

在服务的ServiceStart方法里加一段注册表修改的代码就行，改完刷新服务管理器就能看到变化：

uses
  Registry, Windows;

procedure TEseguiProcessiClient.ServiceStart(Sender: TService; var Started: Boolean);
var
  Reg: TRegistry;
begin
  // 修改服务的友好显示名称
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Self.Name, False) then
    begin
      Reg.WriteString('DisplayName', '新的服务显示名称');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;

  // 你的原有服务逻辑代码...
  Started := True;
end;

修改服务的内部名称（谨慎操作！） #

服务的内部名称就是注册表项的名字，这是系统识别服务的唯一标识，修改起来风险比较高。如果确实要改，步骤是：

1. 先停止当前运行的服务
2. 重命名注册表中对应的服务项
3. 修改服务项里的ImagePath，确保指向正确的可执行文件路径
4. 重新启动服务

一般不建议在运行时改这个，最好在服务安装的时候就确定好，或者通过重新安装服务来修改。

重要提醒 #

• DisplayName是服务管理器里显示的友好名称，改完不用重启服务，刷新一下就能看到变化
• Name是服务的内部标识，改了会影响系统对服务的识别，操作一定要小心
• 调试模式下的所有修改都只是临时的，不会改变系统里已安装服务的配置

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