Delphi-PRAXiS - Delphi WNetAddConnection2 & Vista

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi WNetAddConnection2 & Vista (https://www.delphipraxis.net/102456-wnetaddconnection2-vista.html)

WNetAddConnection2 & Vista

Zum Verbinden von Netzlaufwerken verwende ich folgenden Code:

Delphi-Quellcode:

			function ConNetDrive(Laufwerk: String; Pfad: String;

  Username: String; Password: String; RestoreAtLogon: Boolean): DWORD;

var

  NetResource: TNetResource;

  dwFlags: DWORD;

  chPassword, chUsername : PChar;

begin

  ZeroMemory(@NetResource, sizeof(TNetResource));

  with NetResource do

  begin

    dwType := RESOURCETYPE_DISK;

    lpLocalName := PChar(Laufwerk);

    lpRemoteName := PChar(Pfad);

    lpProvider := nil;

  end;

  if (RestoreAtLogon) then

    dwFlags := CONNECT_UPDATE_PROFILE

  else

    dwFlags := 0;

  if Username <> '' then

    chUsername := PChar(Username)

  else

    chUsername := nil;

  if Password <> '' then

    chPassword := PChar(Password)

  else

    chPassword := nil;

  Result := WNetAddConnection2(NetResource, chPassword, chUsername, dwFlags);

end;

Was unter XP & 2000 wunderbar funktioniert, macht in Vista Probleme (Programm wird als Administrator ausgeführt).
Die Funktion wird zwar irgendwie abgearbeitet (bei falschen Eingaben gibt es entsprechende Rückmeldungen, bei korrekten Eingaben kommt 0 zurück und die Einträge sind per WNetGetConnection auch kontrollierbar), jedoch werden die Netzlaufwerke nicht im Arbeitsplatz angezeigt und können auch nicht direkt in der Adresszeile aufgerufen werden.

Welche Änderung könnte es hier gegeben haben, dass Vista hier noch explizit zum Aktualisieren gebracht werden könnte bzw. wie könnte das gehen?