Verificar programa em execução
16/02/2010
0
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.
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.
Leandro Carvalho
Curtir tópico
+ 0
Responder
Posts
16/02/2010
Perivaldo Martins
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
18/02/2010
Leandro Carvalho
Funcionou para os programas que faço. Agora para o ACBrNFeMonitor ele sempre dá como "Programa aberto!".
Será por que?
Será por que?
Responder
Clique aqui para fazer login e interagir na Comunidade :)