Matar proceso

[raugadel]

Me gustaria que me dijeseis si hay alguna forma de matar un proceso del administrador de tareas de windows sabiendo el nombre del proceso desde delphi.

Un saludo.

[delphi.com.ar]

Tenes que buscar el proceso con las funciones de la "Tool Help" y matarlo con TerminateProcess:
http://www.clubdelphi.com/foros/showthread.php?t=19105

Saludos!

[onlytk]

Hola en mi pagina http://www.onlytk.tk puedes encontrar un programa (con codigos fuente) de un mata procesos espero que te sirva, salu2.

[Anubisdp]

hola para matar un proceso sabiendo su nombre, puedes utilizar las siguientes sentencias:

procedure TForm1.Button1Click(Sender: TObject);
var
Valor:integer;
begin //Nombre del proceso ejemplo Calculadora
Valor:=FindWindow(nil,'Calculadora');
If Valor=0 //debuelve sero si no se encontro el proceso
then ShowMessage('No encuentro esa aplicacion')
else SendMessage(Valor,WM_CLOSE,0,0); // y si se se mata el proceso
end;

Suerte!!!

[jachguate]

Empezado por Anubisdp

hola para matar un proceso sabiendo su nombre, puedes utilizar las siguientes sentencias:

Difiero con vos, puesto que la rutina propuesta no mata al proceso, mas bien le envía un mensaje "solicitandole" que se cierre.

Estas suponiendo, en primer lugar, que el proceso tendrá creada al menos una ventana, para enviarle el mensaje a dicha ventana, y en segundo lugar, el proceso puede unilateralmente decidir ignorar el mensaje y seguir activo, con lo que no "muere".

La idea de matar un proceso, es solicitar al sistema operativo que el proceso deje de ejecutarse, independientemente de cual sea su estado, y suele utilizarse, por ejemplo, para cerrar aplicaciones que se han quedado trabadas, o bien para hacer travesuras. En esta línea de pensamiento, entiendo que la solución mas atinada es la propuesta por Fede.

Hasta luego.

[delphi.com.ar]

¿Puedo agrega ralgo?
Siempre que hablamos de procesos, por compatibilidad con las plataformas Win9x, nos referimos a Tool Help Functions, pero si estamos en alguna plataforma NT, podríamos utilizar las funciones definidas en la unit PsAPI

Código Delphi [-]
 
{ Retorna el Handle del primer proceso de la lista coincidiente con el archivo pasado }
function GetProcessByFileName(AFileName: TFileName): DWORD;
var
  pidProcess: array [0..1023] of DWORD;
  hProcess: DWORD;
  dwCount: DWORD;
  hMod: HMODULE;
  ModuleFileName: array[0..MAX_PATH] of Char;
  i: Integer;
begin
  Result := 0;
  if EnumProcesses(@pidProcess, SizeOf(pidProcess), dwCount) then
    for i := 0 to dwCount div SizeOf(DWORD) do
    begin
      hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, pidProcess[i]);
      if (hProcess <> 0) then
        try
           EnumProcessModules(hProcess, @hMod, SizeOf(hMod), dwCount);
           GetModuleFilenameEx(hProcess, hMod, ModuleFileName, SizeOf(ModuleFileName));
           if SameFileName(ModuleFileName, AFileName) then
           begin
             Result := pidProcess[i];
             break;
           end;
        finally
          CloseHandle(hProcess);
        end;
    end;
end;

procedure KillProcess(hProcess: DWORD);
var
  hProc: DWORD;
begin
  hProc := OpenProcess(PROCESS_TERMINATE, False, hProcess);
  if hProc <> 0 then
    try
      TerminateProcess(hProc, 0);
    finally
      CloseHandle(hProc);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hProcess: DWORD;
begin
  hProcess := GetProcessByFileName('C:\WINNT\SYSTEM32\CALC.EXE');
  if hProcess <> 0 then
    KillProcess(hProcess);
end;

Saludos!