Verificar se a aplicação está rodando?

Delphi

18/01/2006

Pessoal,

Tenho uma aplicação que roda como [b:c4dffb6cee]serviço[/b:c4dffb6cee].

Gostaria de saber como se faz para saber se essa aplicação está em execução?


PS: Utilizo Delphi 7 e Windows 2000 Server


Cicerojr

Cicerojr

Curtidas 0

Respostas

Ipc$

Ipc$

18/01/2006

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;



GOSTEI 0
Ipc$

Ipc$

18/01/2006

Substitua ´pgsql-8.1´ pelo nome do seu serviço


GOSTEI 0
POSTAR