aus Dienst herraus Anwendung starten

[madas]

Zitat von mexx81:

Mein Problem kurz:
Ich habe einen Dienst, der eine Anwendung starten soll. Mit ShellExecute und WinExec geht das nicht. Aber mit CreateProzess konnte ich die Anwendung starten, aber ich sehe keine Oberfläche, weil die Anwendung vom Dienst das SYSTEM als Benutzer erbt, was auch der Grund sein wird, weshalb die beiden anderen Funktionen nicht greifen. In diesen Forum habe ich viel über CreateProzessAsUser und CreateProcessWithLogonW gelesen. Beide Funktionen versprechen Erfolg, jedoch muss bei beiden der Benutzername und das Passwort eingegeben werden. Genau das kenne ich jedoch nicht!

Versuchs mal damit (naja das funzt schon, auch unter Vista):

Delphi-Quellcode:

var
  hToken : THandle; 
  si: TStartupInfo; 
  pi: TProcessInformation;

...

  if WTSQueryUserToken(WtsGetActiveConsoleSessionID, hToken) then 
  begin
    FillChar(si, SizeOf(si), 0);
    with si do
    begin
      cb := SizeOf(si);
      dwFlags := STARTF_USESHOWWINDOW;
      wShowWindow := SW_NORMAL;
    end;

    if not CreateProcessAsUser(hToken, PChar(strMonitorPath), nil, nil, nil, False,
                               NORMAL_PRIORITY_CLASS or CREATE_NEW_PROCESS_GROUP,
                               nil, nil, si, pi) then
    begin
      OutCount := 0;
      MessageBox(0,PChar(SysErrorMessage(GetLastError)),'',MB_SERVICE_NOTIFICATION or MB_OK);
    end
    else
    begin
      Self.SendToMonitorPipe('RESETMONITOR' + #0);
      Self.SendToMonitorPipe('SHOWMONITOR' + #0);
      OutCount := 1;
    end;
  end
  else
  begin
    OutCount := 0;
    MessageBox(0,PChar(SysErrorMessage(GetLastError)),'',MB_SERVICE_NOTIFICATION or MB_OK);
  end;
  CloseHandle(hToken);

Units zum Einbinden sind: JwaWtsApi32, JWAWinBase