Fórum Programa na inicialização #365711

function ServiceGetStatus(sMachine, sService : string) : DWord;
var
 schm   : SC_Handle;       //service control manager handle
 schs   : SC_Handle;       // service handle
 ss     : TServiceStatus;  // service status
 dwStat : DWord;           // current service status
begin
  dwStat := -1;
  // connect to the service control manager
  schm := OpenSCManager( PChar(sMachine), Nil,
                         SC_MANAGER_CONNECT);
  // if successful...
  if(schm > 0)then
  begin
    // open a handle to the specified service
    // we want to query service status
    schs := OpenService( schm, PChar(sService),
                         SERVICE_QUERY_STATUS);
    // if successful...
    if(schs > 0)then
    begin
      // retrieve the current status
      //of the specified service   
      if (QueryServiceStatus( schs, ss)) then
      begin
        dwStat := ss.dwCurrentState;
      end;
      // close service handle
      CloseServiceHandle(schs);
    end;
    // close service control manager handle
    CloseServiceHandle(schm);
  end;
  Result := dwStat;
end;