Netzlaufwerke mit Dialog verbinden |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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.
Ähnliche Seiten: