2008年4月25日
Delphi服务程序注册与卸载
摘要： Delphi服务程序注册与卸载uses winsvc;function InstallService(ServiceName, DisplayName, FileName: string): boolean;varSCManager,Service: THandle;Args: pchar;beginResult := False;SCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);if SCManager = 0 then Exit;try Service := CreateService(SCManager, //句柄 P 阅读全文
posted @ 2008-04-25 12:05 delphi中间件 阅读(480) 评论(0) 推荐(0)