Finalizar procesos en windows

[dec]

Hola,

Una posible forma:

Código Delphi [-]
uses
  TlHelp32;

function MatarProcesos(nombre: string): boolean;
var
  moduleEntry: TModuleEntry32;
  processEntry: TProcessEntry32;
  hSnapshot, hProcess: cardinal;
begin
  result := false;
  moduleEntry.dwSize := SizeOf(TModuleEntry32);
  processEntry.dwSize := SizeOf(TProcessEntry32);
  hSnapshot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
  if Process32First(hSnapshot,processEntry) then
  begin
    repeat
      if (lstrcmpi(PChar(nombre),@processEntry.szExeFile) = 0) then
      begin
        hProcess := OpenProcess(PROCESS_TERMINATE,
                     false,processEntry.th32ProcessID);
        result := TerminateProcess(hProcess,0);
        CloseHandle(hProcess);
      end;
    until not Process32Next(hSnapshot,processEntry);
  end;
  CloseHandle(hSnapshot);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  MatarProcesos('calc.exe');
end;

[jocey]

Empezado por dec

Hola,

Una posible forma:

Código Delphi [-]uses TlHelp32; function MatarProcesos(nombre: string): boolean;
var moduleEntry: TModuleEntry32; processEntry: TProcessEntry32; hSnapshot, hProcess: cardinal; begin result := false; moduleEntry.dwSize := SizeOf(TModuleEntry32); processEntry.dwSize := SizeOf(TProcessEntry32); hSnapshot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0); if Process32First(hSnapshot,processEntry) then begin repeat if (lstrcmpi(PChar(nombre),@processEntry.szExeFile) = 0) then begin hProcess := OpenProcess(PROCESS_TERMINATE, false,processEntry.th32ProcessID); result := TerminateProcess(hProcess,0); CloseHandle(hProcess); end;
until not Process32Next(hSnapshot,processEntry);
end;
CloseHandle(hSnapshot);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin MatarProcesos('calc.exe');
end;

Muchas gracias amigo

[[seoane]]

Y no sera un poco excesivo matarlo, no llegaría con cerrarlo

Código Delphi [-]
  PostMessage(Findwindow('WMPlayerApp',nil),WM_CLOSE,0,0);

[dec]

Hola,

Empezado por seoane

Y no sera un poco excesivo matarlo, no llegaría con cerrarlo

Nada. A los procesos ni agua. Que luego se replican y te llenan toda la memoria. ¡Hay que acabar con ellos de raíz!

[[seoane]]

Empezado por dec

Nada. A los procesos ni agua. Que luego se replican y te llenan toda la memoria. ¡Hay que acabar con ellos de raíz!

Siendo así, lo mejor es desenchufar el ordenador

[dec]

Hola,

Empezado por seoane

Siendo así, lo mejor es desenchufar el ordenador

Es un buen consejo. Llegado el caso, es un buen consejo.

[[egostar]]

Empezado por dec

Hola,



Nada. A los procesos ni agua. Que luego se replican y te llenan toda la memoria. ¡Hay que acabar con ellos de raíz!

Y si son familiares de M$ mucho mejor...., diria nuestro amigo Casimiro

Salud OS

[Cañones]

Empezado por seoane

Y no sera un poco excesivo matarlo, no llegaría con cerrarlo
Código Delphi [-] PostMessage(Findwindow('WMPlayerApp',nil),WM_CLOSE,0,0);

Hola, estoy tratando de cerrar una aplicación con el método que indicas, probé con una ventana X y funciona, ahora necesito hacer esto con una aplicación que esta en modo systray y no funciona, como puedo hacer esto?

Desde ya muchas gracias a todos por su tiempo.

[Axel_Tech]

Cañones prueba esto, yo lo hago así:

Código Delphi [-]
ShellExecute(Handle, nil, 'cmd', 'cmd /c taskkill /im nombreProceso.exe', nil, SW_HIDE);

Debes añadir ShellApi a tus uses.

[Cañones]

Hola, gracias por tu pronta respuesta. Eso es lo que necesitaba.

Gracias por tu tiempo.

Saludos.
Isidoro

[bosster_018]

¿Y no podríamos usar el "ShellExecute" para matar el proceso con "tskill":

Uses
ShellApi

Código Delphi [-]
//Eliminar el proceso Windows Media Player (wmplayer) con tskill
ShellExecute(Handle, nil, 'tskill', 'wmplayer', nil, sw_hide);