Cómo cerrar otra aplicacion desde mi aplicacion en Delphi 7
 

Hola buenos días, me gustaria saber como cerrar una aplicación desde mi aplicacion en Delphi 7, yo la ejecuto con shellexec y le paso como operacion 'open', pero no se como cerrarla luego.
Muchas gracias

Hola, puedes pasarte por la sección de trucos y encontrarás éste prueba a ver que tal.

Saludos

Gracias
 

Excelente muchas gracias!!
Que bueno contar con ustedes

problema con el truco de findwindow
 

hola ese truco esta buenisimo, pero si la ventana no esta abierta en ese momento me cierra mi aplicacion
En la ayuda de Delphi dice que la funcion retorna NULL si falla, me imagino q si no encuentra la ventana, pero en la vida real no retorna NULL, por lo q no puedo validar q cierre la aplicacion correcta y no la mia. Espero haberme explicado...
Gracias

Hola nuevamente, pues siguiendo con los trucos, éste te ofrece una lista de los ejecutables que están en marcha, tu buscas en esa lista si está el que has abierto y entonces cierras como ya sabes...

Saludos

Tratándose de un proceso que tu mismo creas, yo te recomendaría en lugar de usar ShellExecute, utilizar un CrateProcess y mantener el handle del proceso hasta que decidas terminarlo.

Código Delphi [-]
var
  lStartupInfo: TStartUpInfo;
  lProcessInfo: TProcessInformation;
begin
  ZeroMemory(@lStartupInfo, SizeOf(STARTUPINFO));
    with lStartupInfo do
  begin
    cb := SizeOf(lStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_SHOW;
  end;

  if CreateProcess(nil, 'calc.exe', nil, nil, TRUE,
                   NORMAL_PRIORITY_CLASS, nil, nil, lStartupInfo, lProcessInfo) then
    if WaitForSingleObject(lProcessInfo.hProcess, 5000) = WAIT_TIMEOUT then
      TerminateProcess(lProcessInfo.hProcess, 0);