Отсутствие PROCESS_QUERY_LIMITED_INFORMATION в Winapi.Windows.pas Delphi 12.2: ошибка или битый файл?

Delphi , Синтаксис , Ошибки и Исключения

Введение

При работе с Windows API в Delphi разработчики иногда сталкиваются с отсутствием необходимых констант, структур или функций в стандартных модулях. Одна из таких проблем — отсутствие константы PROCESS_QUERY_LIMITED_INFORMATION в модуле Winapi.Windows.pas в Delphi 12.2. В этой статье мы разберём причины этой проблемы и предложим несколько способов её решения.

Суть проблемы

Константа PROCESS_QUERY_LIMITED_INFORMATION (значение $1000) используется в Windows API для функции OpenProcess, когда нужно получить ограниченную информацию о процессе. В Delphi 12.2 эта константа может отсутствовать в модуле Winapi.Windows.pas, что вызывает закономерный вопрос: является ли это признаком повреждения файла или это ожидаемое поведение?

Как объяснил Anders Melander в обсуждении на форуме Embarcadero:

"Это не означает, что файл поврежден. Много чего отсутствует, так как Win32 API постоянно пополняется новыми значениями, структурами и функциями, а Embarcadero не всегда успевает за этими изменениями."

Решение 1: Локальное объявление константы

Самый простой способ решить проблему — объявить константу локально в своём коде:

const
  PROCESS_QUERY_LIMITED_INFORMATION = $1000;

Однако более правильным подходом будет использование директивы компилятора для проверки, не объявлена ли константа уже в другом модуле:

{$IF NOT DECLARED(PROCESS_QUERY_LIMITED_INFORMATION)}
const
  PROCESS_QUERY_LIMITED_INFORMATION = $1000;
{$IFEND}

Важно! Как указал Remy Lebeau, не следует использовать {$IFNDEF} для проверки объявленных констант, так как это работает только для директив компилятора, а не для обычных объявлений.

Решение 2: Использование WinAPI headers из WinMD

Embarcadero предоставляет более полные заголовки Windows API через WinMD метаданные. Эти заголовки можно установить через GetIt Package Manager:

1. Откройте GetIt Package Manager (Tools → GetIt Package Manager)
2. Найдите и установите "WindowsAPI Delphi Headers from WinMD metadata"
3. После установки добавьте путь к установленным заголовкам в Library Path вашего проекта

Как отметил DelphiUdIT:

"Эти новые заголовки гораздо более полные и покрывают все последние API по сравнению с набором, доступным в стандартной RTL."

Константа PROCESS_QUERY_LIMITED_INFORMATION может быть найдена в файле:

C:\Users\<username>\Documents\Embarcadero\Studio\23.0\CatalogRepository\WindowsAPIfromWinMD-1.0\Windows.System.Threading.pas

Решение 3: Прямое использование значения

Если вам нужно просто вызвать OpenProcess, можно использовать числовое значение напрямую:

hProcess := OpenProcess($1000, False, ProcessID);

Однако этот подход менее читаем и усложняет поддержку кода.

Ошибки компиляции и их решение

Некоторые разработчики сталкивались с ошибкой:

E2070 Unknown directive: ''

Как объяснил Anders Melander, эта ошибка может возникать при копировании кода с форума из-за невидимых Unicode-символов. Решение — набрать код вручную или очистить его от невидимых символов.

Альтернативное решение

Если вам нужно работать с процессами в Windows, рассмотрите использование класса TProcess из модуля System.Diagnostics, который предоставляет более высокоуровневый API для работы с процессами:

uses
  System.Diagnostics;

var
  Process: TProcess;
begin
  Process := TProcess.Create(nil);
  try
    Process.ProcessID := ...; // Установите ID процесса
    // Работа с процессом
  finally
    Process.Free;
  end;
end;

Заключение

Отсутствие PROCESS_QUERY_LIMITED_INFORMATION в стандартных модулях Delphi — это не признак повреждения файлов, а следствие того, что Embarcadero не всегда успевает за обновлениями Windows API. Для решения проблемы вы можете:

1. Локально объявить константу с проверкой через {$IF NOT DECLARED}
2. Установить более полные заголовки Windows API через GetIt
3. Использовать числовое значение напрямую
4. Рассмотреть высокоуровневые альтернативы, такие как TProcess

Выбор решения зависит от ваших конкретных требований и предпочтений в организации кода.

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

Статья описывает решение проблемы отсутствия константы PROCESS_QUERY_LIMITED_INFORMATION в модуле Winapi.Windows.pas Delphi 12.2 через локальное объявление, установку дополнительных заголовков или прямое использование значения.

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

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

:: Главная :: Ошибки и Исключения ::