[jhonny]

Código Delphi [-]
if FindWindow(Nil, Pchar('titulo ventana')) <> 0 then
begin 
  //Haga lo que tenga que hacer porque el programa esta abierto...
end

Mejor dicho, todo al final puede quedar asi:

Código Delphi [-]
 
var
  Indicador :Integer
begin
  Indicador := FindWindow(Nil, Pchar('titulo ventana'));
  if Indicador <> 0 then
  begin
    PostMessage(Indicador, WM_QUIT, 0, 0);
  end;
end;