Verificar programa em execução

16/02/2010

3

Estou querendo pelo delphi fazer uma rotina para verificar se um programa esta em execução (este programa também é feito em delphi), se ele não estiver eu o abro. Como faço isso?

Achei isso na net:
if FindWindow(progama, nil) > 0 then
ShowMessage('O Excell está aberto')
else
ShowMessage('O Excell NÃO está aberto');
end;


Só que ali onde vai o programa é a classe, só que abrir o fonte do programa e não sei onde esta esta classe.
Responder

Posts

Tente assim e veja se lhe ajuda. procedure TFXXXX.Button1Click(Sender: TObject); var H: THandle; begin H := FindWindow(nil, 'SeuPrograma'); if H > 0 then ShowMessage('Programa aberto!') else ShowMessage('Programa fechado ou não localizado!'); end; 
Responder
Funcionou para os programas que faço. Agora para o ACBrNFeMonitor ele sempre dá como "Programa aberto!".
Será por que?
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira