Delphi启动或者停止windows服务的函数

uses WinSVC;// W3SVC ---Web Service MSSQLSERVER --- MS SQL Service OverTime 为超时处理，单位秒Function CtrlService(ServiceName: string; Status: Boolean; OverTime:Integer): Boolean; //控制WINDOWS的服务启动与停止varlpServiceArgVectors: Pchar;hscmanager, hService: SC_HANDLE;returnstatus: TServiceStatus;i:Integer;beginResult := True;lpServiceArgVectors := nil;hscmanager := OpenSCManager(nil, nil, SC_MANAGER_ENUMERATE_SERVICE); // 打开service control manager databaseif hscmanager = 0 then begin Result := False; exit; end;hService := OpenService(hscmanager, Pchar(ServiceName), SERVICE_ALL_ACCESS); //打开W3SVC服务if hService = 0 thenbegin CloseServiceHandle(hscmanager); CloseServiceHandle(hService); Result := False; exit;end;if not QueryServiceStatus(hService, returnstatus) thenbegin CloseServiceHandle(hscmanager); CloseServiceHandle(hService); Result := False; exit;end; //查看该Service的状态i:=0;if Status then //如果是启动服务begin if (returnstatus.dwCurrentState = SERVICE_STOPPED) and (not StartService(hService, 0, lpServiceArgVectors)) then Result := False else while (i<OverTime) and (returnstatus.dwCurrentState <> SERVICE_RUNNING) do begin Sleep(1000); QueryServiceStatus(hService, returnstatus); Application.ProcessMessages; inc(i); end; CloseServiceHandle(hscmanager); CloseServiceHandle(hService); exit;endelse //如果是停止服务begin if (returnstatus.dwCurrentState = SERVICE_RUNNING) and (not ControlService(hService, SERVICE_CONTROL_STOP, returnstatus)) then Result := False else while (i<OverTime) and (returnstatus.dwCurrentState <> SERVICE_STOPPED) do begin Sleep(1000); QueryServiceStatus(hService, returnstatus); Application.ProcessMessages; inc(i); end; CloseServiceHandle(hscmanager); CloseServiceHandle(hService); exit;end;end;

 

 

Delphi启动或者停止windows服务的函数