Решение проблемы запуска службы с компонентом TVirtualExplorerTreeview в Delphi для Windows 7

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

При создании службы в Delphi для запуска программы на компьютере с установленной операционной системой Windows 7, пользователь столкнулся с проблемой: программа не запускалась корректно, если в её состав входил компонент TVirtualExplorerTreeview. Ошибка возникала в момент вызова программы службой. В коде использовался механизм имитации пользователя для запуска программы в его сессии. Проблема, судя по всему, была связана с невозможностью программы перечислять PIDL (Pointer ID List) или другими аспектами работы с оболочкой Windows.

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

Код, используемый для запуска программы в сессии текущего пользователя, включал в себя следующие функции:

• GetShellProcessName - получение имени процесса оболочки Windows.
• GetShellProcessPid - получение идентификатора процесса оболочки.
• GetShellHandle - открытие доступа к процессу оболочки.
• ExecuteProcessAsLoggedOnUser - запуск программы в контексте пользователя.

После добавления компонента TVirtualExplorerTreeview на форму программы, при попытке запуска службы возникала ошибка.

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

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

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

Проблема может быть связана с тем, что начиная с Windows Vista, сервисы не запускаются в той же сессии, что и пользователь, находящийся у консоли. Это означает, что сервисы больше не могут взаимодействовать с рабочим столом по умолчанию. Для решения проблемы рекомендуется использовать API WTS, например, функции WTSGetActiveConsoleSessionId() и WTSQueryUseToken(), а также CreateEnvironmentBlock() для обеспечения корректной среды пользователя.

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

• Использовать API WTS для взаимодействия с сессиями пользователя.
• Применить CreateEnvironmentBlock() для создания корректной среды пользователя перед запуском процесса.
• Пересмотреть дизайн программы, чтобы сервис выполнял необходимые задачи самостоятельно, а не передавал их GUI-программе.

Выводы

Для корректной работы сервиса с GUI-программой необходимо правильно организовать взаимодействие между ними, учитывая изменения в работе сервисов, внесенные в Windows Vista и последующих версиях. Использование правильных API и инструментов поможет избежать ошибок, связанных с некорректным взаимодействием с рабочим столом и сессиями пользователей.

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

Пользователь столкнулся с проблемой запуска службы в Delphi для Windows 7, связанной с использованием компонента `TVirtualExplorerTreeview`, и ищет решение для корректной работы с оболочкой Windows и имитации пользователя.

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

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

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