WNetAddConnection2 & Vista

[CodeX]

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?