2009年8月24日
摘要: procedure TMyService.ServiceAfterInstall(Sender: TService); var reg: TRegistry; begin reg := TRegistry.Create; try with reg do begin RootKey := HKEY_LOCAL_MACHINE; if OpenKey('SYSTEM\CurrentCont... 阅读全文
posted @ 2009-08-24 09:29 东睿 阅读(602) 评论(0) 推荐(0)