Detectar em execução algum aplicativo ?

[webrodex 0]

como posso fazer no delphi exemplo ele pega pelo nome do arquivo tipo suponhamos teste.exe ai quando o arquivo ficar em execução no processo ai da uma mensagem falando que esse arquivo foi detectado como faço ?

[Hugo Slepicka 0]

Ele pega o nome da janela e procura por ela...

 

procedure TForm1.FormCreate(Sender: TObject);var H : HWND;begin  //Localiza a Janela...  H := FindWindow(Nil,PChar('Project1 - Turbo Delphi - Unit1 [Running]')); {troque project1 pelo nome do seu projeto)}  if H <> 0 then  Begin	Showmessage('Está Aberto');  End;end;

[webrodex 0]

No caso como faço tem que ser pelo nome do exe exemplo teste.exe ??