Fórum Verificar se a aplicação está rodando? #309602

uses WinSvc;

var HSC,HS:THandle; SS:SERVICE_STATUS;
begin
 HSC := OpenSCManager(nil, nil, SC_Manager_Connect);
 HS  := OpenService(HSC, ´pgsql-8.1´, SC_Manager_All_Access);
 if QueryServiceStatus(HS, SS) then
 begin
   Case SS.dwCurrentState of
     Service_Stopped : ; // parado
     Service_Paused  : ; // pausado
     Service_Running : ; // rodando
   end;
 end;
 CloseServiceHandle(HS);
 CloseServiceHandle(HSC);
end;