Fórum Como faço para verificar se o Outlook está aberto??? #171190

Esta dica da DTDelphi dá uma idéia, mas é necessário descobrir o nome assumido pela janela do Outlook ao ser aberta:

420 - Verificar se determinado programa está em execução (Word, Delphi, etc)
{ 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.

Ola.

Só acrescentando, gostaria de dizer que o comand:
FindWindow(´TAppBuilder´, nil)

pode ser usado da seguinte maneira tb:
FindWindow(nil,´Caption da Janela a ser localizada´)

Qq dúvida me mande um e-mail ok?
T+
Vitor