Como testar se um programa esta em execução
Eu preciso testar se um programa esta em execução se ele não estiver e preciso desliga o Windows, e porque tenho um programa da placa de tv e quando eu desligar o programa de placa de tv, que eu faço isto com um controle remoto da placa de tv, para que eu não precise levantar e desliga o meu pc o programa faça isto para mim, testando se o programa esta em execução.
Pro2
Curtidas 0
Respostas
Dor_poa
19/03/2003
{ Coloque um Button no Form e altere o evento OnClick deste como abaixo: }
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Verifica o Delphi }
if FindWindow(´TAppBuilder´, nil) > 0 then
ShowMessage(´O Delphi está aberto´)
else
ShowMessage(´O Delphi NÃO está aberto´);
{ Verifica o Word }
if FindWindow(´OpusApp´, nil) > 0 then
ShowMessage(´O Word está aberto´)
else
ShowMessage(´O Word NÃO está aberto´);
{ Verifica o Excell }
if FindWindow(´XLMAIN´, nil) > 0 then
ShowMessage(´O Excell está aberto´)
else
ShowMessage(´O Excell NÃO está aberto´);
end;
Observações
Há uma margem de erro nesta verificação: pode haver outros programas que possuam uma janela com os mesmos nomes. Você mesmo pode criar aplicativos em Delphi e, propositadamente, criar uma janela com um destes nomes.
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Verifica o Delphi }
if FindWindow(´TAppBuilder´, nil) > 0 then
ShowMessage(´O Delphi está aberto´)
else
ShowMessage(´O Delphi NÃO está aberto´);
{ Verifica o Word }
if FindWindow(´OpusApp´, nil) > 0 then
ShowMessage(´O Word está aberto´)
else
ShowMessage(´O Word NÃO está aberto´);
{ Verifica o Excell }
if FindWindow(´XLMAIN´, nil) > 0 then
ShowMessage(´O Excell está aberto´)
else
ShowMessage(´O Excell NÃO está aberto´);
end;
Observações
Há uma margem de erro nesta verificação: pode haver outros programas que possuam uma janela com os mesmos nomes. Você mesmo pode criar aplicativos em Delphi e, propositadamente, criar uma janela com um destes nomes.
GOSTEI 0