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; 本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/sunstone/archive/2009/12/05/4944779.aspx

©️2020 CSDN 皮肤主题: 酷酷鲨 设计师:CSDN官方博客 返回首页