Cerrar un programa desde delphi

[jorgegetafe]

Muchiiiiisimas gracias, cada día me gusta mas delphi. Un abrazo.

[jorgegetafe]

Y como puedo saber si un programa esta funcionando o no? (para posteriormente cerrarlo)

[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;

[jorgegetafe]

gracias, eres una makina jejeje