доступ к 64-битному процессу из 32-битной программы

[garuna]

Имеется функция, которая по хэндлу окна возвращает путь программы, которой оно принадлежит. Так вот, функция работает только с 32-битными процессами. Как заставить работать ее также и с 64-bit? Перекомпилировать проект под x64 не вариант (
Или может есть аналогичный способ получить путь по хэндлу?

uses psapi;
...

function GetAppPath(wnd: HWND): string;
var
 ProcId: DWord;
 Hndl: THandle;
 FName: string;
begin
 GetWindowThreadProcessId(wnd, @ProcId);
 Hndl:= OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, True, ProcId);
 SetLength(FName, MAX_PATH);
 if GetModuleFileNameEx (Hndl, 0, PChar(FName), MAX_PATH) > 0
 then
 begin
  SetLength(FName,StrLen(PChar(FName)));
  Result:= FName;
 end
 else Result:= 'n / a';
end;


...
var
 Wnd: HWND;
begin
  Wnd:= GetForegroundWindow();
  showmessage(GetAppPath(Wnd));
end
...

[xxbesoxx]

которая по хэндлу окна возвращает путь программы,

Это вы имеете в виду ?

  Label6.Caption := ExtractFilePath(Application.ExeName);

[garuna]

Сообщение от xxbesoxx

  Label6.Caption := ExtractFilePath(Application.ExeName);

Не то, мне чужой программы путь нужен, а не своей.

[min@y™]

попробуй, для начала, вместо GetModuleFileNameEx() поюзать QueryFullProcessImageName().

поставь брейк на GetWindowThreadProcessId(wnd, @ProcId); и посмотри, попадает ли валидный PID в переменную ProcId.
Ибо у меня в 32-битном приложении корректно отрабатывает вот такой кусок:

 ProcessHandle:= OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID);

  if ProcessHandle <> 0
    then try
           if GetModuleFileNameEx(ProcessHandle, 0, buffer, MAX_PATH) <> 0
             then Result:= buffer
             else DoError();
         finally
           CloseHandle(ProcessHandle);
         end;

то есть exe-шники от х64-приложений этот код тоже корректно возвращает.

[garuna]

Сообщение от min@y™

поставь брейк на GetWindowThreadProcessId(wnd, @ProcId); и посмотри, попадает ли валидный PID в переменную ProcId.
Ибо у меня в 32-битном приложении корректно отрабатывает вот такой кусок:

 ProcessHandle:= OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID);

  if ProcessHandle <> 0
    then try
           if GetModuleFileNameEx(ProcessHandle, 0, buffer, MAX_PATH) <> 0
             then Result:= buffer
             else DoError();
         finally
           CloseHandle(ProcessHandle);
         end;

то есть exe-шники от х64-приложений этот код тоже корректно возвращает.

Под рукой сейчас нет x64-версии ОС, не могу проверить. Но вроде я по всякому пробовал, не получалось. В итоге проблему решил через GetProcessImageFileName, которая корректно отрабатывает как с x32 так и с x64