Buscar por:

Verificando se determinado programa está em execução (word, delphi, etc)

Código

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