Delphi7 创建的服务更改名称后无法启动

Question

Delphi7 创建的服务程序更改名称后无法启动
我在服务安装之前的事件中用 Service1.SetName('test');更改服务名称,代码如下:procedure TService1.ServiceBeforeInstall(Sender: TService);
begin
  Service1.SetName('test');                              //设置服务名称
end;编译后安装此服务,名称成功更改了,可是当你不管是自动启动还是手动在Services.msc里启动,
都无法启动.提示: "错误1053 服务没有及时响应启动或控制请求"
如果不改服务名称就能正常启动.
请问这是怎么回事?有没有办法解决,这事困扰我很久了.谢谢.

Answer 1

不是这样改，那是怎样改呢？
我要的答案就是能更改服务名称（当然不要用Name属性来改）又能启动服务。