为DataSnap系统服务程序添加描述
2012-09-03 15:20
330 查看
Delphi2010中DataSnap高级技术(1)—为DataSnap系统服务程序添加描述 收藏
这几天一直在研究Delphi 2010的DataSnap,感觉功能真是很强大,现在足有理由证明Delphi7该下岗了。
DataSnap有三种服务模式,其中Service Application方式建立的windows服务没有描述,描述部分是空的,感觉总是欠缺点什么。
现找到办法添加描述:
procedure TServerContainer2.ServiceAfterInstall(Sender: TService);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
with reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SYSTEM\CurrentControlSet\Services\' + Self.Name, false) then
begin
WriteString('Description', 'It is my service');
end;
CloseKey;
end;
finally
reg.Free;
end;
end;
这几天一直在研究Delphi 2010的DataSnap,感觉功能真是很强大,现在足有理由证明Delphi7该下岗了。
DataSnap有三种服务模式,其中Service Application方式建立的windows服务没有描述,描述部分是空的,感觉总是欠缺点什么。
现找到办法添加描述:
procedure TServerContainer2.ServiceAfterInstall(Sender: TService);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
with reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SYSTEM\CurrentControlSet\Services\' + Self.Name, false) then
begin
WriteString('Description', 'It is my service');
end;
CloseKey;
end;
finally
reg.Free;
end;
end;
相关文章推荐
- Delphi2010中DataSnap高级技术(1)—为DataSnap系统服务程序添加描述
- Delphi2010中DataSnap高级技术(1)—为DataSnap系统服务程序添加描述
- Delphi2010中DataSnap高级技术(1)—为DataSnap系统服务程序添加描述
- datasnap 2010 为DataSnap系统服务程序添加描述
- delphi XE Datasnap SERVER 在windows 7 下为服务添加描述信息
- XMLHTTPRequest、IDHTTP、SQLConnection访问DataSnap/Restful接口服务演示程序
- 《Windows小应用》如何将一个自己download的zip文件安装的程序添加到系统服务中
- 把程序手工添加系统服务
- Delphi2010中DataSnap高级技术(6)—加强服务程序对访问者的控制能力
- 如何将程序添加到系统服务实现开机自启动
- Delphi中给Windows服务程序添加描述信息
- 如何把程序手工添加系统服务
- 用VS2003部署,让服务程序安装完后立即启动服务并且选中“允许服务与桌面交互”及添加服务描述的方法
- 手动添加系统服务(登录前启动程序)
- chkconfig 添加灵活被系统控制服务, /etc/rc.local中添加开机自启动程序, /etc/profile中添加二进制命令
- 将java 程序添加为系统服务
- 如何将程序添加到系统服务实现开机自启动
- 如何把程序添加到系统服务
- 如何将程序添加到系统服务实现开机自启动
- 如何将 .exe 程序添加到系统的服务中