Finalizar tarea de un programa X

[Soa Pelaez]

Buen día.

Requiero finalizar una tarea de un programa X desde delphi, ejemplo en el momento hay tres tareas de un programa X, necesito solo cerrar una de las tareas y no toda la aplicación porque lo estaba haciendo con la funcion de KillTask pero este cierra todas las tareas del programa.

Espero puedan ayudarme gracias.

[Casimiro Notevi]

Define "Tarea".

[Soa Pelaez]

Empezado por Casimiro Notevi

Define "Tarea".

Me refiero a los procesos que se crean en el administrador de tareas al abrir varias veces un mismo programa. Y requiero finalizar la tarea mediante código. Gracias

[Casimiro Notevi]

No la "mates" por su nombre, sino por su pid.

[Soa Pelaez]

Empezado por Casimiro Notevi

No la "mates" por su nombre, sino por su pid.

Y como se cual es el PID de esa tarea?

[ecfisa]

Hola.

Revisa si te sirve este enlace: Eliminar/Cerrar un proceso de Windows - Delphi

Saludos

[ecfisa]

Hola.

Perdón veo que el enlace no responde exáctamente a tu pregunta, que es como obtener el Pid de una taréa. Para obtener el Pid dado el nombre, podrías hacer:

Código Delphi [-]
function GetPidByProcessName(const ProcName: string): Integer;
  function EnumWndProc(Handle: HWND; ST: TStrings): BOOL; stdcall;
  var
    Caption: array[0..128] of Char;
  begin
    Result := True;
    SendMessage(Handle, WM_GETTEXT, Sizeof(Caption), integer(@Caption));
    ST.AddObject(Caption, TObject(Handle));
  end;
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    EnumWindows(@EnumWndProc, Integer(TS));
    Result := TS.IndexOf(ProcName);
    if Result <> -1 then Result := Integer(TS.Objects[Result]);
  finally
    TS.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessageFmt('Pid: %8.8x',[GetPidByProcessName('Sin título: Bloc de notas')]);
end;

Saludos