服务的管理和控制

function TSvrXXXXX.DoCustomControl(CtrlCode: DWord): Boolean;
begin
 Result := inherited DoCustomControl(CtrlCode);
 case CtrlCode of
   0:;
 end;
end;

function ServiceControl(const ServiceName: string; const ControlCode: integer;const Computer: PChar = nil): Boolean;
{
  控制系统服务，可以指定代码: ControlCode 必须在 [128,255]
}
var
 SCM, SCH: SC_Handle;
 ServiceStatus: TServiceStatus;
begin
 if IsLocalComputer(Computer) then
   SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS)
 else
   SCM := OpenSCManager(Computer, nil, SC_MANAGER_ALL_ACCESS);
 if SCM <> 0 then
 begin
   SCH := OpenService(SCM, PChar(ServiceName), SERVICE_ALL_ACCESS);
   if SCH <> 0 then
   begin
     Result := ControlService(SCH, ControlCode, ServiceStatus);
     CloseServiceHandle(SCH);
   end;
   CloseServiceHandle(SCM);
 end;
end;