Home » Tipps & Tricks » Netzwerk/Internet » Netzwerk » Netzlaufwerke mit Dialog verbinden

Netzlaufwerke mit Dialog verbinden

Die API-Funktion WNetConnectionDialog ruft den Verbindungs-Dialog für Netzwerklaufwerke auf. Die Funktion gibt NO_ERROR zurück, falls eine Verbindung hergetsellt werden konnte und $FFFFFFFF falls der Benutzer den Dialog manuell schließt. Weitere Rückgabewerte sind in der PSDK unter dem Stichwort „WNetConnectionDialog“.

procedure TForm1.Button1Click(Sender: TObject);
const
  CANCEL_DIALOG = $FFFFFFFF;
begin
  case WNetConnectionDialog(Handle, RESOURCETYPE_DISK) of
    NO_ERROR: Showmessage('OK');
    CANCEL_DIALOG: Showmessage('Abbruch');
    else
      RaiseLastOSError;
  end;
end;

Zum Trennen des Netzlaufwerkes per Dialog rufen Sie die Funktion WNetDisconnectDialog auf:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if WNetDisconnectDialog(Handle, RESOURCETYPE_DISK)NO_ERROR then
    RaiseLastOSError;
end;

Hinweis: RaiseLastOSError ist erst ab Delphi 6 verfügbar. Programmierer, die mit älteren Versionen arbeiten müssen an dieser Stelle RaiseLastWin32Error verwenden.Alternative Funktionen finden Sie in der PSDk unter dem Stichwort „WNetConnectionDialog1“ und „WNetDisconnectDialog1“ dokumentiert.