Como testar se um programa esta em execu��o

Question

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 ...

Dor_poa · Answer

{ 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.