delphi XE Datasnap SECRUISERVEKuga 在windows 7 下为服务丰硕描述音讯

网上对劳务丰裕描述消息的,多数是用注册表的点子,而注册表的点子,我在win7
下测试,不知何故,总是卓殊,把履行的CMD以管理员格局开启,依旧没加进去。

  于是在网上查到上面包车型客车代码,保存供叁考,原文物博物主为某站的:Ψ星泪(JPEXE)

 

以下代码在delphi 10.2下编译测试通过

 

uses Winapi.WinSvc;

procedure TServerContainer1.ServiceAfterInstall(Sender: TService);
begin
SetDescription(‘那是自个儿的datasnap 中间件’);

end;

procedure  SetDescription(const Desc: string);
var
hSCM:SC_HANDLE;
hService: SC_HANDLE;
sd: SERVICE_DESCRIPTION;
begin
hSCM := Winapi.WinSvc.OpenSCManager(nil, nil,
SC_MANAGER_ALL_ACCESS);
if hSCM = 0 then Exit;
hService := Winapi.WinSvc.OpenService(hSCM, PChar(Self.Name),
SERVICE_CHANGE_CONFIG);
if hService = 0 then Exit;
sd.lpDescription := PChar(Desc);
ChangeServiceConfig2(hService, SERVICE_CONFIG_DESCRIPTION, @sd);
Winapi.WinSvc.CloseServiceHandle(hService);
Winapi.WinSvc.CloseServiceHandle(hSCM);
end;

相关文章