Запуск `msconfig.exe` из Delphi-приложения: разрешения и проблемы с 32/64-битной системой

Delphi , Синтаксис , Справочник по API-функциям

Запуск msconfig.exe из Delphi-приложения: разрешения и проблемы с 32/64-битной системой

При разработке приложений на Delphi важно учитывать особенности работы с системными утилитами, такими как msconfig.exe, особенно в контексте 32- и 64-битных операционных систем. В данной статье мы рассмотрим, как запустить msconfig.exe из Delphi-приложения, расположенного в папке System32, и обсудим проблемы, связанные с разрядностью системы.

Проблема

При попытке запустить msconfig.exe из Delphi-приложения, находящегося в папке System32, пользователь столкнулся с проблемой, которая, по всей видимости, связана с разрешениями. Перемещение файла в корень диска C:\ позволило успешно запустить утилиту. Это указывает на проблему, специфичную для 64-битных систем Windows, где 32-битные приложения не могут корректно обращаться к папке System32.

Пример кода

Вот пример кода на Object Pascal, который демонстрирует попытку запуска msconfig.exe из папки System32:

var
  errorcode: Integer;
begin
  errorcode := ShellExecute(0, 'open', PChar('C:\Windows\System32\msconfig.exe'), nil, nil, SW_NORMAL);
  if errorcode <= 32 then
    ShowMessage(SysErrorMessage(errorcode));
end;

Решение проблемы

Проблема заключается в том, что в 64-битных системах Windows 32-битные приложения не могут напрямую обращаться к папке System32. Это связано с работой File System Redirector, который перенаправляет запросы в папку SysWOW64. Для решения этой проблемы можно использовать следующие подходы:

1. Перекомпиляция приложения под 64-битную версию с помощью последней версии Delphi, поддерживающей 64-битную цель.
2. Использование функций Wow64DisableWow64FsRedirection и Wow64EnableWow64FsRedirection для временного отключения перенаправления файловой системы.
3. Использование специального псевдонима SysNative для доступа к 64-битной версии System32 из 32-битного приложения.
4. Запуск msconfig.exe с использованием повышения прав (runas verb) в ShellExecute.

Пример кода с использованием SysNative

var
  errorcode: Integer;
  SysFolder: string;
begin
  if IsWow64 then
    SysFolder := 'SysNative'
  else
    SysFolder := 'System32';
  errorcode := ShellExecute(0, 'runas', PChar('C:\Windows\' + SysFolder + '\msconfig.exe'), nil, nil, SW_NORMAL);
  if errorcode <= 32 then
    ShowMessage(SysErrorMessage(errorcode));
end;

Функция IsWow64

Для определения того, запущено ли приложение в режиме WOW64, можно использовать следующую функцию:

{$IFDEF WIN64}
function IsWow64: Boolean;
begin
  Result := False;
end;
{$ELSE}
function IsWow64Process(hProcess: THandle; out Wow64Process: BOOL): BOOL; stdcall; external 'kernel32.dll' delayed;

function IsWow64: Boolean;
var
  Ret: BOOL;
begin
  Result := False;
  // Проверка на Windows XP или новее
  if (Win32MajorVersion > 5) or ((Win32MajorVersion = 5) and (Win32MinorVersion >= 1)) then
  begin
    if IsWow64Process(GetCurrentProcess(), Ret) then
      Result := Ret <> 0;
  end;
end;
{$ENDIF}

Заключение

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

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

Контекст данного запроса заключается в описании проблемы и методов решения при запуске системной утилиты `msconfig.exe` из Delphi-приложения, учитывая особенности работы с 32- и 64-битными операционными системами.

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

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

:: Главная :: Справочник по API-функциям ::