Hier, viel Vergnügen damit:
Delphi-Quellcode:
function GetFilenameByHandle( const hWnd: DWord ): String;
var
PID, hSnapshot: DWord;
ME32: TModuleEntry32;
begin
Result := '';
GetWindowThreadProcessId( hWnd, PID );
hSnapshot := CreateToolhelp32Snapshot( TH32CS_SNAPMODULE, PID );
if not(hSnapshot = INVALID_HANDLE_VALUE) then
begin
try
ME32.dwSize := SizeOf( ME32 );
if Module32First( hSnapshot, ME32 ) then
Result := ME32.szExePath;
finally
CloseHandle( hSnapshot );
end;
end;
end;
EDIT:
"tlHelp32" sollte noch eingebunden werden
MfG