Вопрос по ShellExecute - Общие вопросы Delphi

Sti.k · 14.05.2010, 10:33

Всем здрасти.

Вопрос таков. Есть служба работающая от пользователя SYSTEM. В ней есть запуск какого нить файла с помощью ShellExecute:

if ShellExecute(h, 'open', 'd:\w.txt', nil, nil, SW_SHOWNORMAL) < 32 then
FileLog(ErrorLogFileName, 'Косяк');

Проблема в том что процесс notepad.exe создается и в диспетчере он виден, но окна не появляется. И ошибок от ShellExecute нет.

PS: Есть подозрения что нужно h нужно указать что то более конкретное а не 0 как у меня.

SERG1980 · 14.05.2010, 11:03

да вроде всё нормально

Код:

ShellExecute(handle, 'open', 'd:\w.txt', nil, nil, SW_SHOWNORMAL)

Sti.k · 14.05.2010, 11:06

Из обычной проги с формой и запущеной от имени админа этот код работает нормально. А у меня служба, которая работает от имени SYSTEM.

Служба создана как Файл -> Новый -> Сервис-Приложение.

JTG · 14.05.2010, 11:11

Разрешить службе взаимодействие с рабочим столом.

Но есть ограничения

Цитата:

Interactive - сервис может взаимодействовать с интерфейсом пользователя: может выводить на консоль окна и принимать ввод от пользователя (так называемые "интерактивные" службы). Не рекомендуется устанавливать в True. Более того, в Windows Vista интерактивные службы запрещены по умолчанию. Интерактивный процесс может быть запущен только из-под учётной записи LocalSystem (при установке свойства в True автоматически сбрасываются свойства ServiceStartName и Password и наоборот).

Sti.k · 14.05.2010, 11:17

Работает. Но теперь такой вопрос.
Как бы эту галочку програмно поставить перед установкой или запуском службы?

JTG · 14.05.2010, 11:22

Interactive := True;

Sti.k · 14.05.2010, 11:25

Спасибо. Вопрос исчерпан, можно закрывать.

14.05.2010, 10:33	#1
Sti.k Пользователь Регистрация: 14.05.2010 Сообщений: 14	Вопрос по ShellExecute Всем здрасти. Вопрос таков. Есть служба работающая от пользователя SYSTEM. В ней есть запуск какого нить файла с помощью ShellExecute: if ShellExecute(h, 'open', 'd:\w.txt', nil, nil, SW_SHOWNORMAL) < 32 then FileLog(ErrorLogFileName, 'Косяк'); Проблема в том что процесс notepad.exe создается и в диспетчере он виден, но окна не появляется. И ошибок от ShellExecute нет. PS: Есть подозрения что нужно h нужно указать что то более конкретное а не 0 как у меня. Последний раз редактировалось Sti.k; 14.05.2010 в 10:48. Причина: Добавление

14.05.2010, 11:03	#2
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	да вроде всё нормально Код: `ShellExecute(handle, 'open', 'd:\w.txt', nil, nil, SW_SHOWNORMAL)`

14.05.2010, 11:06	#3
Sti.k Пользователь Регистрация: 14.05.2010 Сообщений: 14	Из обычной проги с формой и запущеной от имени админа этот код работает нормально. А у меня служба, которая работает от имени SYSTEM. Служба создана как Файл -> Новый -> Сервис-Приложение. Последний раз редактировалось Sti.k; 14.05.2010 в 11:09. Причина: Добавление

14.05.2010, 11:22	#6
JTG я получил эту роль Старожил Регистрация: 25.05.2007 Сообщений: 3,694	Interactive := True; пыщь

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ShellExecute	Fakov	Общие вопросы Delphi	13	18.11.2022 16:47
Вопрос по ShellExecute	SANIOK_AV	Общие вопросы Delphi	6	17.04.2009 12:10
Вопрос по ShellExecute.	Vi_russ	Общие вопросы Delphi	1	08.12.2008 12:11
Проблема с Mediaplayer'ом и вопрос про ShellExecute	Шани	Компоненты Delphi	2	22.07.2008 18:57
ShellExecute	Volkogriz	Общие вопросы Delphi	4	31.10.2007 13:33

14.05.2010, 11:17	#5
Sti.k Пользователь Регистрация: 14.05.2010 Сообщений: 14	Работает. Но теперь такой вопрос. Как бы эту галочку програмно поставить перед установкой или запуском службы?

14.05.2010, 11:25	#7
Sti.k Пользователь Регистрация: 14.05.2010 Сообщений: 14	Спасибо. Вопрос исчерпан, можно закрывать.