CreateProcessAsUser: Wie Verbindung mit Netzwerk herstellen?

[Angel4585]

Hallo,

ich möchte aus einem Dienst heraus ein Programm starten, welches auf eine Netzwerkressource zugreifen soll.
Das Ganze im Hintergrund und wenn nötig vor der Benutzeranmeldung.

Dafür Nutze ich jetzt die Methode CreateProcessAsUser.

Also nacheinander:

Delphi-Quellcode:

var
  ltoken : Cardinal;
  LEnv : Pointer;
  pi : TProfileInfo;
  si : STARTUPINFO;
  pri : _PROCESS_INFORMATION;
  sil : TSecurityImpersonationLevel;
begin
LogonUser(
  'Benutzer',
  '',
  'Passwort',
  LOGON32_LOGON_NETWORK,
  LOGON32_PROVIDER_DEFAULT,
  ltoken
);


  FillChar(sil,SizeOf(TSecurityImpersonationLevel),#0);
  sil := SecurityIdentification;

DuplicateTokenEx(
  ltoken,
  TOKEN_ALL_ACCESS,
  nil,
  sil,
  TokenPrimary,
  ltoken
);


  fillchar(pi,sizeof(TProfileInfo),#0);
  pi.dwSize:=sizeof(TProfileInfo);
  pi.lpUserName:='Benutzer';

LoadUserProfile(
  ltoken,
  pi
);

CreateEnvironmentBlock(
  lenv,
  ltoken,
  false
);

  FillChar(pri,sizeof(_PROCESS_INFORMATION),#0);
  FillChar(si,sizeof(STARTUPINFO),#0);

  si.cb:=sizeof(si);
  si.lpReserved:=nil;
  si.lpDesktop:=PChar('');
  si.lpTitle:=nil;
  si.dwFlags:=STARTF_FORCEOFFFEEDBACK;
  si.wShowWindow :=SW_SHOWNORMAL;
  si.cbReserved2:=0;
  si.lpReserved2:=nil;


CreateProcessAsUser(
  ltoken,
  nil,
  'D:\ProgrammPfad\Programm.exe',
  nil,
  nil,
  false,
  CREATE_UNICODE_ENVIRONMENT,
  lenv,
  nil,
  si,
  pri
);

Kann mir wer sagen wo ich welchen Parameter ändern/hinzufügen muss um nun auch auf UNC-Pfade/Netzlaufwerke zugreifen zu können?