Obtener Handle de un Proceso conociendo su nombre...

[JuanErasmo]

Hola amigos...
Necesito terminar un proceso, creo que ya se como, pero tengo que tener el Handle del proceso, y no tengo sino el nombre del ejecutable...
Es posible obtener el Handle a partir del nombre del ejecutable?
Gracias.

[[seoane]]

Esto ya lo preguntaste aquí, al menos algo parecido

http://www.clubdelphi.com/foros/showthread.php?t=29393

Y Federico te respondió que echaras un vistazo a este hilo

http://www.clubdelphi.com/foros/showthread.php?t=28419

Y en este hilo hay un post donde Federico muestra como obtener el handle del proceso a partir de su nombre y luego muestra como matarlo.

http://www.clubdelphi.com/foros/show...72&postcount=6

Entonces, ¿no te funciono? ¿no lo leíste? ¿no lo sabes traducir a Builder?

[JuanErasmo]

Hola seaone ! Si...Es demasiado complicado para mi.
He intentado traducirlo a Builder....y no me ha funcionado....
lo que me pasa es que hago un shellExecute, y se me abren los procesos y se quedan abiertos....he intentado matarlos de otra manera.....pero lo ideal es poderlo matar desde la lista de procesos antes de ejecutarlo de nuevo...
Alguien puede ayudarme a traducirlo a Builder? puedes ayudarme tu??
Gracias

[[seoane]]

No tengo el builder instalado, lo mas parecido que tengo para programar en C es el MinGW, pero no debería de ser muy diferente. La cosa quedaría así:

void MatarProceso(char nombre[])
{
 DWORD lista[1024];
 HANDLE proceso;
 char buffer[MAX_PATH + 1];
 DWORD l;
 int i;
 
 if (!EnumProcesses(lista, sizeof(lista), &l))
   return;
 l = l / sizeof(DWORD); 
 for ( i = 0; i<l; i++ )
 {
  proceso = OpenProcess(PROCESS_QUERY_INFORMATION | PROCESS_VM_READ 
                        | PROCESS_TERMINATE,FALSE,lista[i]);
  if (proceso != NULL)
  { 
   if (GetModuleFileNameEx(proceso,NULL,buffer,sizeof(buffer)-1))
   {
    if (strcasecmp(buffer,nombre)==0)
      TerminateProcess(proceso,0);      
   }    
   CloseHandle( proceso );               
  }
 }
}

Se utilizaría de esta manera:

  MatarProceso("C:\\Windows\\System32\\Notepad.exe");

Puede que tengas que añadir alguna librería para usar las funciones EnumProcesses y OpenProcess, en MinGW el header se llama psapi.h y la libreria libpsapi.a supongo que en el Builder tendrán nombres parecidos.

De todas formas si tu creas el proceso y luego quieres destruirlo, deberías pensar en utilizar la función CreateProccess que además de iniciar el proceso nos devuelve sus identificador que luego podemos usar para matarlo.

[JuanErasmo]

Lo voy a probar, pero estoy seguro que funciona, eres muy bueno para esto te felicito!.
Ahora en caso de que quiera proteger mi .exe, para que no pueda ser terminado desde la lista de procesos...conoces alguna funcion que me permita proteger la terminacion del proceso??
Gracias, de verdad estoy aprendiendo mucho lo que hace que estoy con ustedes, y seaone y dec me han ayudado mucho.
Mil Gracias otra vez

[JuanErasmo]

HOLA..ya copie e inclui las librerias, pero me sale el siguiente errorr..

[Linker Error] Unresolved external 'EnumProcesses' referenced from C:\BACK UP ARCHIVOS AGOSTO 29\ARCHIVOS DE PROGRAMA\OSCAR\NOVIEMBRE 2006\MATAR PROCESO\UNIT1.OBJ
[Linker Error] Unresolved external 'GetModuleFileNameExA' referenced from C:\BACK UP ARCHIVOS AGOSTO 29\ARCHIVOS DE PROGRAMA\OSCAR\NOVIEMBRE 2006\MATAR PROCESO\UNIT1.OBJ

Que es eso?
Como lo arreglo?
Gracias!