function TfSysInfo.ServiceStatus(hostaddr, ServiceName: string): cardinal;
var hSCManager: SC_HANDLE;
 hService: SC_HANDLE;
 lpServiceStatus: _SERVICE_STATUS;
begin
 hSCManager := 0;
 hService := 0;
 try
   hSCManager := OpenSCManager(PChar(hostaddr), nil, SC_MANAGER_ALL_ACCESS);
   if hscManager <> 0 then begin
     hService := OpenService(hSCManager, PChar(ServiceName), SERVICE_QUERY_STATUS);
     QueryServiceStatus(hService, lpServiceStatus);
     result := lpServiceStatus.dwCurrentState;
   end else result := 0;
 finally
   if hService <> 0 then CloseServiceHandle(hService);
   if hscManager <> 0 then CloseServiceHandle(hscManager);
 end;
end;

 StatusText: array[SERVICE_STOPPED..SERVICE_PAUSED] of string =
 ('Остановлена', 'Ожидание запуска', 'Ожидание останова', 'Запущена',
   'Ожидание продолжения', 'Ожидание приостанова', 'Приостановлена');

function TfSysInfo.StartStopService(pcname, ServName: string; startstop: integer): integer; //start - 1, stop - 0; 2 - pause; 3 - continue;
var
 hscManager, hService: LongWord;
 sStatus: TServiceStatus;
 lpServiceArgVectors: PChar;
begin
 result := 0;
 hService := 0;
 hscManager := OpenSCManager(PChar(pcname), nil, SC_MANAGER_ALL_ACCESS);
 try
   if hscManager <> 0
     then
     case startstop of
       0: begin
           hService := OpenService(hscManager, PChar(ServName), SERVICE_STOP);
           ControlService(hService, SERVICE_CONTROL_STOP, sStatus);
           result := 0;
         end;
       1: begin
           lpServiceArgVectors := nil;
           hService := OpenService(hscManager, PChar(ServName), SERVICE_ALL_ACCESS);
           if hService <> 0 then StartService(hService, 0, PChar(lpServiceArgVectors));
           result := 0;
         end;
       2: begin
           hService := OpenService(hscManager, PChar(ServName), SERVICE_PAUSE_CONTINUE {SERVICE_ALL_ACCESS});
           ControlService(hService, SERVICE_CONTROL_PAUSE, sStatus);
           result := 0;
         end;
       3: begin
           hService := OpenService(hscManager, PChar(ServName), SERVICE_PAUSE_CONTINUE {SERVICE_ALL_ACCESS});
           ControlService(hService, SERVICE_CONTROL_CONTINUE, sStatus);
           result := 0;
         end;
     end
   else begin
     result := GetLastError
   end;
 finally
   if hService <> 0 then CloseServiceHandle(hService);
   if hscManager <> 0 then CloseServiceHandle(hscManager);
 end;
end;

 hSCManager := OpenSCManager(PChar(hostaddr), nil, SC_MANAGER_CONNECT);