Как в Delphi запустить процесса из сервиса?

Question

[terminator48]

Здравствуйте. Имеется сервис на Delphi, который должен запускать внешнюю программу. Используется функция ShellExecute. После вызова функции процесс запускается, но занимает очень мало памяти и GUI приложения не показывается. Пробовал запускать batch файл, в процессах зависал cmd.exe. Я думаю что причина моих бед - запуск приложений под системным пользователем, который наверное и не даёт ему показывать окно. В аналогичной теме на Тостере уже был, но рабочее решение там отсутствовало.

Итак вопрос: как запустить приложение под текущем пользователем(пользователем, на котором сейчас открыт десктоп) из сервиса.

Windows 7 x64, Delphi 7, Залогинен под админом, "Разрешить взаимодействие с рабочим столом" стоит

P.S. Поиск использовал.

Answer 1

[terminator48]

Ладно, всем спасибо за ответы, но я сам уже нашёл решение:

uses JwaWindows, JwsclToken, JwsclSid, JwsclStrings

procedure RunApp(str: string);
var
  UserToken : TJwSecurityToken;
  ConsoleUser : TJwSecurityId;
  UserSidString,
  UserName : TJwString;
struc1: LPSTARTUPINFO;
struc2: PROCESS_INFORMATION;
begin

getmem(struc1, sizeof(TSTARTUPINFO));

struc1^.lpDesktop := PChar('winsta0\default');
struc1^.dwFlags := STARTF_USESHOWWINDOW;
struc1^.wShowWindow := SW_SHOW;
  UserToken := TJwSecurityToken.CreateWTSQueryUserToken(WTS_CURRENT_SESSION);
  CreateProcessAsUser(UserToken.TokenHandle, nil,
      PChar(str+' 1000'),
       nil, nil, false, Create_default_error_mode, nil, nil, struc1^, struc2);
    UserToken.RevertToSelf;
  FreeAndNil(UserToken);
end;

Answer 2

[Олег]

Здравствуйте. Погуглил для вас и нашел такой вариант решения:

procedure RunApp(str: pchar);
var
struc1: PSTARTUPINFO;
struc2: PROCESS_INFORMATION;
begin

getmem(struc1, sizeof(TSTARTUPINFO));

struc1^.lpDesktop := PChar('winsta0\default');
struc1^.dwFlags := STARTF_USESHOWWINDOW;
struc1^.wShowWindow := SW_SHOW;

CreateProcess(nil, str, nil, nil, False,
NORMAL_PRIORITY_CLASS,
nil, nil, struc1^, struc2);

end;

Помогает, но будут утечки памяти.

Майкрософт говорит использовать в вашем случае такие функции:
CreateProcessWithLogonW
CreateProcessAsUser

Comments

[terminator48]

Спасибо за ответ! Судя по всему этот способ не работает...
Либо я дурак, либо лыжи не едут.

[Олег]

Странно, у меня заработало. RunApp('notepad.exe'); Запустился из сервиса корректно.

[Олег]

Напишу по другому, попробуйте использовать данную процедуру вместо ShellExecute.

[terminator48]

Опять: screenshot.su/show.php?img=27fce0268f02c9126c06158...

[terminator48]

на этот раз выдает
ERROR_NOACCESS
998 (0x3E6)
Invalid access to memory location.

Answer 3

[fart]

Реализуйте приложение запущенное в сессии пользователя, которое слушает порт или pipe. Сервис будет "общаться" с пользователем через это приложение. Конечно, есть минусы этой реализации, но работает везде. Мне приходилось так делать когда служба была написана на C#.

Comments

[terminator48]

Хм... Как я понял, Вы предлагаете мне сделать обычное приложение. Если так, то тут проблема, что пользователь может завершить процесс, а это для стартера онлайн игры недопустимо

[fart]

@terminator48,ммм....
Понятно,что всё зависит от задачи.... у вас же сервис остается. реализуется программа (пр1) работающая в сессии пользователя, основной задачей которой выполнять команды сервиса, в том том числе и запускать GUI приложения. Также сервис может защищать процесс пр1, не давая его убить или запускает его вновь. Еще подумайте о людях кто живет в Linux: будет ли работать в Wine ваше решение)

Answer 4

[s0m]

100% рабочий код. Сам сервис запускается из-под конкретного пользователя.
В противном случае нужно эти права получать програмным путём.

TServ = class(TService)
        procedure ServiceStart(Sender: TService; var Started: Boolean);
	procedure ServiceExecute(Sender: TService);
	procedure ServiceCreate(Sender: TObject);
  public
	function GetServiceController: TServiceController; override;
  end;

procedure TServ.ServiceExecute(Sender: TService);
var
	si : TStartupInfo;
	pi : TProcessInformation;
begin
	FillMemory( @pi, SizeOf( pi ), 0 );
	GetStartupInfo( si );

	CreateProcess(PAnsiChar(exe), PAnsiChar(params), nil, nil, false, 0, nil, PAnsiChar(dir), si, pi );
	CloseHandle(pi.hThread);

	while not Terminated do begin
		ServiceThread. ProcessRequests( False );
		Sleep(250);
	end;

	TerminateProcess(pi.hProcess, 1);
end;