setup (adminrecht) und Usernetzlaufwerke

[erich.wanker]

Hallo leute,

ich hab ein InnoSetup (required admin), daß Datein kopiert und
abschließend ein Programm (auch mit adminrecht) startet...

In diesem Programm suche ich nun die Netzlaufwerke des akt. Users ..

Leider find ich immer nur die Laufwerke vom Admin (was irgendwie eh logisch ist) .. aber brauchen würde ich die Laufwerke des gerade angemeldeten und aktiven users (das Programm soll aber Admin-rechte beibehalten...)

Folgendes funktioniert nicht:

Delphi-Quellcode:

function GetNetworkDriveMappings(
  sl : TStrings ) : integer;
var
  i               : integer;
  sNetPath        : string;
  dwMaxNetPathLen : DWord;
begin
  sl.Clear;
  dwMaxNetPathLen := MAX_PATH;
  SetLength( sNetPath,
    dwMaxNetPathLen );
  for i := 0 to 25 do
  begin
    if( NO_ERROR =
      Windows.WNetGetConnection(
        PChar(
          '' + Chr( 65 + i ) + ':' ),
        PChar( sNetPath ),
        dwMaxNetPathLen ) )then
    begin
      sl.Add( Chr( 65 + i ) + ': ' +
              sNetPath );
    end;
  end;
  Result := sl.Count;
end;

Hab jemand einen Ansatz?

vielen Dank
erich