Как Доступть к 32- и 64-битным Директориям Program Files в 32-битном Приложении на 64-битной Windows

Delphi , Синтаксис , Типы и Переменные

В операционных системах Windows, которые поддерживают работу 32-битных приложений на 64-битной архитектуре, переменная окружения %PROGRAMFILES% ведет себя по-разному в зависимости от того, является ли процесс 32-битным или 64-битным. В случае 32-битного процесса на 64-битной системе, %PROGRAMFILES% указывает на директорию C:\Program Files (x86), в то время как для 64-битного процесса на такой же системе переменная будет указывать на C:\Program Files.

Рассмотрим, как можно получить доступ к обоим этим каталогам из 32-битного приложения, написанного на Delphi и запущенного в 64-битной системе Windows.

Доступ к 32-битному Program Files

Чтобы получить доступ к каталогу C:\Program Files (x86), который предназначен для 32-битных программ, можно использовать переменную окружения ProgramFiles(x86). Пример кода на Object Pascal:

var
  x86ProgramFiles: string;
begin
  x86ProgramFiles := GetEnvironmentVariable('ProgramFiles(x86)');
  // Здесь можно использовать переменную x86ProgramFiles для работы с файлами
end;

Доступ к 64-битному Program Files

Для доступа к каталогу C:\Program Files, который используется для 64-битных программ, можно воспользоваться переменной окружения ProgramW6432. Пример кода:

var
  x64ProgramFiles: string;
begin
  x64ProgramFiles := GetEnvironmentVariable('ProgramW6432');
  // Здесь можно использовать переменную x64ProgramFiles для работы с файлами
end;

Альтернативный Способ: Использование ID Известных Папок

Для повышения надежности программы можно использовать известные папки (known folder IDs), которые обеспечивают более стабильный доступ к директориям. В этом случае следует использовать FOLDERID_ProgramFilesX86 для 32-битных программ и FOLDERID_ProgramFilesX64 для 64-битных. Однако, стоит отметить, что попытка использования FOLDERID_ProgramFilesX64 в 32-битном приложении приведет к ошибке.

uses
  SHFolder;

var
  PSF: IShellFolder;
  PIDL: PItemIDList;
  FolderPath: string;
begin
  if IsWow64Process(GetCurrentProcess, nil) then
    // Если процесс 32-битный, используем FOLDERID_ProgramFilesX86
    SHGetKnownFolderIDList({FOLDERID_ProgramFilesX86}, KF_FLAG_DEFAULT, nil, PIDL)
  else
    // Если процесс 64-битный, используем FOLDERID_ProgramFilesX64
    SHGetKnownFolderIDList({FOLDERID_ProgramFilesX64}, KF_FLAG_DEFAULT, nil, PIDL);
  // Далее следует работа с полученным PIDL для получения пути к папке
end;

Таким образом, разработчики могут получить доступ к нужным директориям Program Files в зависимости от разрядности процесса, в котором выполняется их приложение.

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

Вопрос связан с доступом к директориям `Program Files` различной разрядности в 32-битном приложении на 64-битной операционной системе Windows, используя переменные окружения и известные папки.

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

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

:: Главная :: Типы и Переменные ::