Delphi. Запуск чужого приложения из своего сервиса?

Question

[SkyRZN]

Добрый день! Подскажите если сможете как решить следующую задачку. Есть сервис написанный на делфи, сервис должен запустить чужое приложение, пробовал сделать запуск через функции shellexecute и createprocess, приложение запускается (в диспетчере задач видно), но окна приложения нет. Галочку «разрешить взаимодействие с рабочим столом» ставил.

Answer 1

[Nikita Permin]

Сервис — он не от пользователя работает. И при работе сервиса нет такого понятия как «активный» рабочий стол, ведь ни для кого не секрет что можно открывать одновременно несколько учетных записей в данный момет времени, первая допустим основная, локально с компа, а вторая — через RDP, вот и получается что нет «активного» рабочего стола, а есть (скорее всего) список запущенных учетных записей из них уже и надо получать хэндл рабочего стола. Не знаю как вы пропустили этот момент, когда читали про сервисы, но я точно помню что реализовано это именно так. Советую почитать про Сервисы и Драйвера в Windows.

Comments

[SkyRZN]

Эх, так и не разобрался как можно задать на какой рабочий стол выводить.
P.S. Максимальное чего смог пока достичь, это через функцию CreateProcessWithLogonW запустить программу от конкретного пользователя, но при условии что он залогинился. Если вход в систему не произведен то ничего не запускается, а нужно имено это.

Answer 2

[RomeroMsk]

Если задача — запуск на рабочем столе активного пользователя (того, кто смотрит в монитор в данный момент), то можно сделать так:

function WTSGetActiveConsoleSessionId: DWORD; stdcall; external 'Kernel32.dll';
function WTSQueryUserToken(SessionId: DWORD; phToken: pHandle):bool;stdcall;external 'wtsapi32.dll';

if WTSQueryUserToken(WtsGetActiveConsoleSessionID,@hToken) then
begin
	ZeroMemory(@si,SizeOf(si));
	si.cb:=SizeOf(si);
	si.lpDesktop:=nil;
	CreateProcessAsUser(hToken,nil,PANSIChar(FilePath),nil,nil,False,0,nil,nil,si,pi);
	CloseHandle(hToken);
end;

Смысл в том, что начиная с Vista (если не ошибаюсь), запуск приложения в контексте системы весь интерактив возложит в «рабочий стол пользователя SYSTEM».
Но если пользователь залогинится после запуска — окно он не увидит, скорее всего. Решение: циклическая проверка «активности» пользователя в службе и запуск этим способом.

Comments

[SkyRZN]

я буду циклически проверять залогинился пользователь или нет, как только залогинился, мне нужно будет закрыть программу и снова её запустить, так получается?

[RomeroMsk]

Если нужно обеспечить ровно одну копию процесса, то можно так:
Искать среди запущенных процессов нужный, сверять пользователя-«владельца» с «активным» и ежели не совпали, убивать и запускать новую копию указанным выше способом.

Answer 3

[antoo]

function ExecAndWait(const FileName,
                     Params: ShortString;
                     const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
begin
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }
  CmdLine := '"' + Filename + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin

    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end;
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
  { Ожидаем завершения приложения }
  if Result then
  begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  ExecAndWait( 'C:\windows\notepad.exe', '', SW_SHOWNORMAL);
end;
</code>

попробуйте :)

Comments

[antoo]

хабрапарсер здорово порезал теги, ну я думаю все понятно.

[SkyRZN]

Тоже самое. В диспетчере задач процесс виден, на рабочем столе окна нет. В обычном приложении всё работает, а в сервисе не хочет.

[SkyRZN]

Спустя несколько минут появилось сообщение: «обнаружение интерактивных служб», и кнопка то
отобразить, по нажатию которой появилась запущенная программа но на другом рабочем столе, на котором ничего нет. Есть мысли как вывести на основном рабочем столе?

[antoo]

Вариант 2:

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('C:\windows\notepad.exe',SW_SHOW);
end;

[SkyRZN]

При выполнении сервиса опять появляется такое сообщение и по нажатию на кнопку посмотреть сообщение появится опять на отдельном рабочем столе блокнот.

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

Answer 4

[SegaZero]

галка «взаимодействовать с рабочим столом» в виста и выше попросту не работает. Советую запускать с помощью планировщика задач к примеру: апи? у gunsmoker'a хорошо написано об этом

Comments

[SkyRZN]

Попробую, но это всё равно не совсем то что хотелось бы.

[SegaZero]

ну как вариант — можете сделать интерактивную часть отдельным процессом и подключаться к нему через COM, его инициализацию можно делать на заданных токенах (пользователях)