本篇文章主要介绍了" delphi XE Datasnap SERVER 在windows 7 下为服务添加描述信息"，主要涉及到方面的内容，对于Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：
网上对服务添加描述信息的，多数是用注册表的方式，而注册表的方式，我在win7 下测试，不知为什么，总是不行，把执行的CMD以管理员模式开启，还是没加进去。 于...
网上对服务添加描述信息的，多数是用注册表的方式，而注册表的方式，我在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;
以上就介绍了 delphi XE Datasnap SERVER 在windows 7 下为服务添加描述信息，包括了方面的内容，希望对Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。
本文网址链接：http://www.codes51.com/article/detail_4322811.html
