Obtener Nombre EXE, de una Aplicacion Mendiante su Handle

[spider_Ramon]

Hola a Todos, Alguien Sabe Como Obtener El Nombre de Exe de una Aplicacion Mediante su Handle.

Gracias.

[spider_Ramon]

Gracias a TODOS pero ya lo Resolvi, encontre en la Internet una Function que me regresa el Nombre del Executable mandandole su Handle.

Gracias, si alguien lo ocupa solo mandenme un EMAIL se lo constestare a la Brevedad Posible.

[jachguate]

Es de esperar, si ya encontraste la informacion, que publiques aqui mismo la solución, dado que servirá en el futuro cuando alguien realice una búsqueda sobre el mismo tema y es una forma de devolver a la comunidad parte de la ayuda que has recibido de ella.

Hasta luego.

[spider_Ramon]

Ya lo se, y no es la primera vez que me lo dicen, pero es un buen el codigo, por eso deje mi correo y especifique a la breveda posible, o quieres que pegue un codigo de 345 Lines???


Lo Dicho a quien le Sirva Escribame!!!

[roman]

Si lo encontraste en Internet, ¿no puedes simplemente poner el enlace?

// Saludos

[spider_Ramon]

Ahi va el Codigo, en cuanto la enlace de Internet saque de Aqui, de alla, de ahi... me explico?

Código Delphi [-]
 
//***************************/
//Esta Funcion Acepta el Handle de la Ventana y Regresa el Nombre de su Exe
Function TForm1.GetExePath(WH : HWND): String;
var
  dwActiveProcessId : DWORD;
  Snap   : THandle;
  pe32   : TPROCESSENTRY32;
Begin
  result:= '';
  GetWindowThreadProcessId(WH, @dwActiveProcessId );
  try
    Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, dwActiveProcessId);
    if Snap <> 0 then
    begin
      if Process32First(Snap, pe32) then
      begin
        if pe32.th32ProcessID = dwActiveProcessId then
        begin
          result := String(pe32.szExeFile);
        end
        else
        begin
          while Process32Next(Snap, pe32) do
          begin
            if pe32.th32ProcessID = dwActiveProcessId then
            begin
              Result := String(pe32.szExeFile);
              Break;
            end;
          end;
        end;
      end;
    end;
  finally
    CloseHandle(Snap);
  end;
end;
 
//Llamada a la Funcion
GetExePath(GetForegroundWindow)
 
/***************************/

Ok, Lo Anterior Regresa el Handle de la Ventana Activa en Window, lo qu ehace mi proghrama es un Guardian que revisa que Tecla se Presiona a Nivel Window, y revisa de una lista de programas si esta esa aplicacion y si es asi que letra se debe bloquear, lei que muchos lo requerian mas nadie me daba el codigo echo por eso ... sqque de aqui... de alla.. de ahi ok.

Disculpen y Espero y les Sirva.

[roman]

Pues muchas gracias.

¿No eran 345 líneas?

// Saludos