Verificar programa em execução
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
Curtidas 0
Respostas
Perivaldo Martins
16/02/2010
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;
GOSTEI 0
Leandro Carvalho
16/02/2010
Funcionou para os programas que faço. Agora para o ACBrNFeMonitor ele sempre dá como "Programa aberto!".
Será por que?
Será por que?
GOSTEI 0