Как проверять, запущена ли определенная программа?

[Bill Gates]

Если определенная прога запущена, то нужно выполнить определенное действие. Вопрос: как проверить в моем приложении, запущена ли определенная прога и выполнить с нем какое либо действие.

[Terran]

procedure TForm1.Timer1Timer(Sender: TObject);
var
H:HWND;
Begin
H:=FindWindow(Nil, 'Здесь заголовок окна проги, которая есле запускается, то происходит действие');
If H=0 Then Exit;
//Действие которое выполняется, в данном случае запущеная прога закрывается
PostMessage(H, WM_QUIT, 0, 0);
End;