Как обновить подход к использованию `ShellExecute` для совместимости с Windows 7: от `COMMAND.COM` к `CMD.EXE`

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

Обновление подхода к использованию ShellExecute для совместимости с Windows 7

В современных операционных системах, таких как Windows 7, важно учитывать изменения в системе вызовов командной строки. В частности, в более новых версиях Windows используется cmd.exe вместо COMMAND.COM, который был актуален для Windows 9x и XP. Это изменение может вызвать проблемы при попытке запуска внешних процессов через функцию ShellExecute в программах, написанных на Object Pascal (Delphi).

Проблема

Разработчики, использующие Delphi для создания приложений, могут столкнуться с ситуацией, когда старый код, работавший без проблем на Windows XP, перестаёт функционировать в Windows 7. Это может быть связано с использованием COMMAND.COM для запуска команд, которые ранее выполнялись корректно. Пример кода, который может вызвать такую проблему:

ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c ftp -s:c:\checkout\WebFTPParams.txt 91.208.99.4'), Nil, SW_SHOW);

Решение

Чтобы исправить эту проблему, необходимо обновить подход к использованию ShellExecute, заменив COMMAND.COM на CMD.EXE. В коде это будет выглядеть следующим образом:

ShellExecute(Handle, 'open', PChar('cmd.exe'), PChar('/c ftp -s:c:\checkout\WebFTPParams.txt 91.208.99.4'), Nil, SW_SHOW);

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

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

ShellExecute(Handle, nil, 'ftp.exe', '-s:c:\checkout\WWFTPParams.txt 212.78.232.39', nil, SW_SHOW);

В этом случае нет необходимости указывать верб (verb), так как ftp.exe является самостоятельным приложением.

Рекомендации

Для обеспечения совместимости с различными версиями Windows можно использовать функцию GetEnvironmentVariable с параметром 'COMSPEC', чтобы автоматически определить правильный интерпретатор командной строки.

var
  ComSpec: string;
begin
  GetEnvironmentVariable('COMSPEC', ComSpec, SizeOf(ComSpec));
  // Использовать значение переменной ComSpec для запуска команд
end;

Современные практики

В современном программировании рекомендуется избегать использования внешних процессов для работы с протоколами, такими как FTP. Вместо этого можно использовать специализированные компоненты и библиотеки, например, Indy, ICS, Synapse, или WinInet, libcurl, которые предоставляют готовые решения для работы с FTP и другими протоколами.

Заключение

Обновление кода под современные требования ОС, в частности, переход от COMMAND.COM к CMD.EXE и использование более современных библиотек для работы с сетью, позволит обеспечить стабильную и надёжную работу приложений на различных версиях Windows.

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

Обновление подхода к использованию `ShellExecute` для совместимости с Windows 7 требует замены `COMMAND.COM` на `CMD.EXE` или прямого обращения к исполняемым файлам для корректной работы приложений, созданных в Delphi.

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

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

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