Как получить путь к исполняемому файлу активного окна в Delphi

Delphi , ОС и Железо , Windows

Иногда в процессе разработки программ на Delphi возникает необходимость получить путь к исполняемому файлу активного окна. Это может быть полезно, например, для анализа запущенных процессов или для реализации функционала, который требует взаимодействия с другими приложениями. В данной статье мы рассмотрим, как можно решить эту задачу, используя примеры кода на Object Pascal (Delphi).

Описание проблемы

Пользователь пытается получить путь к исполняемому файлу текущего активного окна, используя следующий код:

var
  WindowModuleFileName: array[0..100] of Char;
  sourceWindow: HWND;
begin
  sourceWindow := GetActiveWindow;
  GetWindowModuleFileName(sourceWindow, PChar(WindowModuleFileName), sizeof(WindowModuleFileName));
  ShowMessage(WindowModuleFileName);
end;

Однако, код возвращает корректный путь только тогда, когда активным является окно самого приложения. Вопрос заключается в том, что делает пользователь не так.

Альтернативный ответ

В документации по функции GetActiveWindow указано, что она возвращает дескриптор окна активного окна, который принадлежит потоку, вызвавшему функцию. Следовательно, для получения пути к исполняемому файла окна, активного в другом потоке, необходимо использовать функцию GetForegroundWindow.

Подтвержденный ответ

Для решения задачи получения пути к исполняемому файлу активного окна, которое может принадлежать другому процессу, необходимо использовать комбинацию функций GetWindowThreadProcessId, GetForegroundWindow и GetModuleFileNameEx. Ниже приведен пример кода, который реализует эту задачу:

uses
  Winapi.Windows, Winapi.PsAPI, System.SysUtils;

function GetCurrentActiveProcessPath: String;
var
  pid, size: DWORD;
  hProcess: THandle;
  path: array[0..4095] of Char;
begin
  // Получаем идентификатор процесса активного окна
  pid := GetWindowThreadProcessId(GetForegroundWindow, 0);
  if pid = 0 then
    RaiseLastOSError;

  // Открываем процесс для чтения информации
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, pid);
  if hProcess = 0 then
    RaiseLastOSError;

  try
    // Получаем размер буфера для пути
    size := SizeOf(path);
    // Получаем путь к исполняемому файлу процесса
    if GetModuleFileNameEx(hProcess, 0, @path[0], size) = 0 then
      RaiseLastOSError;
    Result := path;
  finally
    // Закрываем дескриптор процесса
    CloseHandle(hProcess);
  end;
end;

Этот код возвращает строку с путем к исполняемому файлу активного окна, даже если окно принадлежит другому процессу.

Комментарии

Важно отметить, что GetWindowModuleFileName в приведенном примере контекста, скорее всего, является пользовательской оберткой, так как это не стандартная функция Windows API. Кроме того, существуют альтернативные функции, такие как GetProcessImageFileName и QueryFullProcessImageName, которые могут быть использованы для получения пути к исполняемому файлу процесса и не требуют прав PROCESS_VM_READ.

Также стоит учитывать, что некоторые программы могут вызывать сбой при попытке получить путь к своему исполняемому файлу. Причины такого поведения могут быть различны и требуют дополнительного анализа.

Используя приведенный выше код, разработчики Delphi могут эффективно решать задачи, связанные с получением информации о запущенных приложениях и их исполняемых файлах.

Создано по материалам из источника по ссылке.

Пользователь ищет способ получить путь к исполняемому файлу активного окна в Delphi, используя функции Windows API, и сталкивается с трудностями при работе с окном другого процесса.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::