Fórum help-me.. como descubro se um processo está ou não rodando #193358

Retirei isso do DtDelphi: http://cdownload.no-ip.com/lloyd/

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

bleza mas tem um, porem que acho que esqueci de mencionar a janela não fica aberta ela fica no taskbar...

é como o icq ele abre e depois fica do lado do relogiio

ok, pesquise lá no dtdelphi que eu acho que tem outras dicas sobre isso !