GetWindowModuleFileName gibt nichts zurück

[perle]

bei mir geht das so:

Code:

var
 lProcessID: dWord;
 lHandle: THandle;
begin
 GetWindowThreadProcessId(WindowHandle, @lProcessID);
 SetLength(Buffer, MAX_PATH);
 lHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, True, lProcessID);
 if GetModuleFileNameEx(lHandle, 0, PChar(Buffer), MAX_PATH) > 0 then
   SetLength(Buffer, StrLen(PChar(Buffer)));
end;