使用Delphi新建服务代码
5星 · 超过95%的资源 需积分: 11 2 浏览量
2009-10-15
12:58:49
上传
评论
收藏 31KB DOC 举报 
使用 delphi 新建服务，停止系统服务
本文主要讲解了如何使用 delphi 新建服务，停止系统服务，以及获取服务
状态和新建系统服务器的方法，以下是关键代码：
unit Servicescontrol;
interface
uses Windows,Messages,SysUtils,Winsvc,Dialogs;
function StartServices(Const SvrName:String):Boolean;
function StopServices(Const SvrName:String):Boolean;
function QueryServiceStatu(Const SvrName: String):String;
function CreateServices(Const SvrName,FilePath:String):Boolean;
function DeleteServices(Const SvrName: String):Boolean;
implementation
//开启服务)))
function StartServices(Const SvrName: String): Boolean;
var
a,b:SC_HANDLE;
c:PChar;
begin
Result:=False;
a:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
if a <=0 then Exit;
b:=OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);
if b <=0 then Exit;
try
Result:=StartService(b,0,c);
CloseServiceHandle(b);
CloseServiceHandle(a);
except
CloseServiceHandle(b);
CloseServiceHandle(a);
Exit;
end;
资源评论
elogsoft2012-09-24第一次写windows下的服务，对我的帮助很大
aQuietDay2012-06-19第一次写windows下的服务，对我的帮助很大，事倍功半，谢谢
