Finalizar procesos en windows

[jocey]

Hola a todos los amigos del club, quisiera un pequeno ejemplo de como puedo finalizar un proceso en windows, para ser mas objetivo quiero cerrar el windows media player desde delphi.


Muchas gracias a todos

[[duilioisola]]

Busca "Matar el proceso de nuestro programa" en la parte de trucos...

Quizas te ayude. Parece que hay una función que mata el proceso según el nombre del archivo ejecutable :

Código Delphi [-]
function TFrmPrincipal.KillTask(FileName:String):integer;

[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

[jocey]

Empezado por duilioisola

Busca "Matar el proceso de nuestro programa" en la parte de trucos...

Quizas te ayude. Parece que hay una función que mata el proceso según el nombre del archivo ejecutable :

Código Delphi [-]function TFrmPrincipal.KillTask(FileName:String):integer;

Muchas Gracias

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

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

[dec]

Hola,

Empezado por seoane

Siendo así, lo mejor es desenchufar el ordenador

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

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