Arsip: Windows services - Checking status

uses WinSvc;
//-------------------------------------
// get service status
// return status code if successful -1 if not
// return codes:
//   SERVICE_STOPPED
//   SERVICE_RUNNING
//   SERVICE_PAUSED
//   SERVICE_START_PENDING
//   SERVICE_STOP_PENDING
//   SERVICE_CONTINUE_PENDING
//   SERVICE_PAUSE_PENDING
// sMachine:
//   machine name, ie: \SERVER
//   empty = local machine
// sService
//   service name, ie: Alerter
function ServiceGetStatus(  sMachine, sService : string ) : DWord;
var
// service control manager handle
schm,
// service handle
schs   : SC_Handle;
// service status
ss     : TServiceStatus;
// current service status
dwStat : DWord;
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
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; 

function ServiceRunning( psMachine, psService : string ) : boolean;
begin
Result := SERVICE_RUNNING = ServiceGetStatus( psMachine, psService );
end;
function ServiceStopped( psMachine, psService : string ) : boolean;
begin
Result := SERVICE_STOPPED = ServiceGetStatus( psMachine, psService );
end;

if( ServiceRunning( '\ComputerName', 'alerter' ) ) then
begin
// service "alerter" di \ComputerName sedang berjalan
// tulikan apa yg akan dilakukan disini
end;
if ( ServiceRunning( '', 'alerter' ) ) then
begin
// service "alerter" di lokal komputer sedang berjalan
end;
if( ServiceStopped( '', 'alerter' ) ) then
begin
// service "alerter" di lokal komputer berhenti
end;