Решение проблемы запуска скрытой консольной службы с использованием ShellExecute на Windows XP, Vista и 7

Delphi , ОС и Железо , DOS и Консоль

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

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

При запуске сервера, написанного на Delphi 2010, в виде службы Windows, возникает ошибка доступа при попытке выполнения консольного приложения, которое используется для периодического резервного копирования базы данных. Приложение может отправлять информацию о логах в окно консоли, но это не является обязательным требованием. Запуск работает корректно при выполнении сервера как обычного приложения, но вызывает проблемы, если запущен как служба, даже если консольное окно запущено скрыто (SW_HIDE). Ошибка доступа возникает при вызове функции ShellExecute.

Операционные системы:

Решение должно быть применимо для операционных систем Windows XP, Vista и Windows 7.

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

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

Комментарии к альтернативному ответу:

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

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

Было отмечено, что использование ShellExecute для запуска приложений из службы обычно не приводит к успеху и является не лучшим решением. Вместо ShellExecute рекомендуется использовать функцию CreateProcess, которая способна корректно выполнять эти действия.

Исследование:

После изучения вопросов на StackOverflow, связанных с ShellExecute и CreateProcess, подтверждается, что CreateProcess является предпочтительным методом для запуска процессов внутри службы, включая консольные приложения.

Шаги решения проблемы:

1. Вместо использования ShellExecute для запуска консольного приложения из службы, следует использовать функцию CreateProcess.
2. Пример кода на Object Pascal (Delphi) для запуска скрытого консольного приложения из службы:

uses
  Winapi.Windows;

function ExecuteHiddenConsoleApp(const AppPath, Args: string): Boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcInfo;
begin
  Result := False;
  ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));
  with StartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_HIDE;
  end;
  if CreateProcess(nil, PChar(AppPath + ' ' + Args), nil, nil, False,
    CREATE_NO_WINDOW, nil, nil, StartupInfo, ProcessInfo) then
    Result := True;
end;

1. Вызовите функцию ExecuteHiddenConsoleApp с указанием пути к исполняемому файлу консольного приложения и аргументов, если они необходимы.

Этот подход позволит успешно запустить скрытую консольное приложение из службы Windows на операционных системах XP, Vista и 7, что решает исходную проблему пользователя.

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

Пользователь столкнулся с проблемой запуска скрытой консольной службы, использующей ShellExecute, на операционных системах Windows XP, Vista и 7, и ошибка доступа возникает даже при попытке скрытого выполнения приложения из службы.

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

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

:: Главная :: DOS и Консоль ::