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!

[[seoane]]

El error parece indicar que no has incluido la librería psapi.lib

[JuanErasmo]

Es psapi.lib? o psapi,h?
ya hice el #include "psapi.h"....

[JuanErasmo]

Hola!
eres un genio!
pero no me funciona la funcion "strcasecmp"...y cuando la quite, me cerró todos los procesos!!
como incluyo esa funcion? tiene un equivalente?
Gracias!

[[seoane]]

Una cosa son los archivos de cabecera, los .h, y otra cosa son las librerías, los .lib. Los primeros se añaden al principio como tu has hecho con #include, pero los otros tienes que indicarle al compilador que los agregue a tu ejecutable. Creo que en builder seria algo asi: Menu Project->Add to Project, ahi busca el archivo psapi.lib y lo agregas.

[[seoane]]

Veo que mi mensaje anterior no sirvió para nada y lo resolviste tu solito. Eso esta bien, en cuanto a la función strcasecmp sirve para comparar 2 cadenas de texto ignorando las mayúsculas, supongo que podrás encontrar alguna otra equivalente.

Edito: Puede que stricmp sirva

[JuanErasmo]

Hola otra vez! y muchas gracias...
Estoy intentando visualizar la lista que hay en list[i], lo hago asi ...
CODE]Memo1->Lines->Add(proceso)[[/code]....pero me sale un error este es el error :

Cannot convert void to AnsiString....que es eso??
como lo corrigo?? Muchas gracias!
en cuanto a la funcion, la buscare mas adelante
Graciias!!

[[seoane]]

Estas intentando agregar un HANDLE, cuando debería ser una cadena de texto. Lo normal es que agregaras el valor de buffer, que contiene el nombre del ejecutable.

[JuanErasmo]

Gracias!
Viendo la lista de procesos, me trae solo los de usuario...
No puedo obtener tambien los del sistema?
Gracias!

Como hago para modificarle que un ejecutable no deje terminar el proceso?
Gracias!! otra vez mil gracias!

[[seoane]]

La razón de que solo te muestre los del usuario es esta:

proceso = OpenProcess(PROCESS_QUERY_INFORMATION | PROCESS_VM_READ 
                        | PROCESS_TERMINATE,FALSE,lista[i]);

Si observas abrimos el proceso indicándole que queremos tener permiso para terminarlo, si no podemos obtener ese permiso la función OpenProcess falla. Como usuario normal no tenemos permiso para terminar algunos procesos, de ahí que no aparezcan en la lista. Si quieres hacer un simple listado cambia la función anterior por algo como esto:

proceso = OpenProcess(PROCESS_QUERY_INFORMATION | PROCESS_VM_READ,lista[i]);

Pero entonces no podrás terminar el proceso, no al menos usando ese handle.

En cuanto a lo de hacer nuestro proceso inmortal, es algo complicado. Una solución si el usuario al que se le debe impedir el asesinato es un usuario limitado es hacer que nuestro proceso sea un servicio. Pero si es un administrador, no hay nada que se pueda hacer. Bueno lo hay, pero hay que modificar el comportamiento de todo el sistema, a un nivel que ya se nos escapa, así que vamos a dejarlo pro ahora.

[JuanErasmo]

Muchas Gracias!!
Te agradezco mucho seaone!
Has sido un excelente profesor.
Bueno, la curiosidad es porque algunas veces voy a terminar un proceso manualmente, en el task bar, y me dice algo asi como "Acceso Denegado!"
, pense que era algo de permisos, pero veo que es muy complicado para mi por el momento.
Luego le intento otro rato!
Te agradezco mucho, por tu ayuda de Internet y por API, Muchas gracias en verdad! Estoy aprendiendo muchisimo aca, ya que aca en Colombia hay que defenderse como sea economicamente! Hay que aprender a hacer de todo!
Gracias!