Benutzer aus Dienst anmelden

[kuba]

ich habs !

Delphi-Quellcode:

if not LogonUser(
           PChar('user'),
           PChar('localhost'),
           PChar('passwort'),
           LOGON32_LOGON_INTERACTIVE,
           LOGON32_PROVIDER_DEFAULT,
           token) then exit;

  ZeroMemory( @si, sizeof(si) );
  si.lpDesktop:=PChar('MyOwnDesktop');
  si.cb := sizeof(si);
  ZeroMemory( @pi, sizeof(pi) );
  //cf:=CREATE_NEW or CREATE_NEW_CONSOLE;
  command:='notepad.exe';

try
  if not CreateProcessAsUser(
    token,
    nil,
    PChar(command),
    nil,
    nil,
    False,
    CREATE_NEW_CONSOLE, //cf,
    nil,
    PChar(ExtractFilePath(command)),
    si,
    pi )then exit;
except
  exit;
  end;

Ich bekomme die Anwendung zwar jetzt im Taskmanager zu sehen und sie wir auch unter dem gewünschten User ausgeführt, aber ich kann in der Registry leider keine SID des Benutzers entdecken. Was läuft denn noch falsch ??

Muss es vielleicht CreateProcessInSession sein ?

kuba