verificar um programa externo em execução

[tatu_raptor 0]

Como verifico se um programa que foi desenvolvido por outra empresa está sendo executado, pois para usar o comando FindWindow('XXXX', nil) > 0 preciso saber o nome da janela do programa

[bdexterholland 0]

[/code]procedure TForm1.Button1Click(Sender: TObject);

var

prog: THandle;

begin

prog := FindWindow(nil,'titulo da janela aberta');

PostMessage(prog,WM_CLOSE,0,0);

end;[/code]

 

acho que o primeiro parametro do findwindow pode ser o nome do arquivo em execução que criou o processo, o segundo é o título da janela...