Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi API- Funktion um alle Netzwerklaufwerke zu trennen? (https://www.delphipraxis.net/45580-api-funktion-um-alle-netzwerklaufwerke-zu-trennen.html)

smart 8. Mai 2005 19:12


API- Funktion um alle Netzwerklaufwerke zu trennen?
 
Gibt es eine API- Funktion oder etwas Ähnliches um alle Netzwerklaufwerke zu trennen?

Christian Seehase 8. Mai 2005 19:41

Re: API- Funktion um alle Netzwerklaufwerke zu trennen?
 
Moin smart,

alle auf einmal... :gruebel:... da fällt mir nichts ein, aber einzeln: MSDN-Library durchsuchenWNetCancelConnection2

smart 9. Mai 2005 08:26

Re: API- Funktion um alle Netzwerklaufwerke zu trennen?
 
Hallo Christian Seehase!

Vielen Dank für Deine Antwort. Ich werde mit einer Schleife alle Laufwerke durchgehen und die Fehlermeldung abfabgen. Das müsste gehen. Danke nochmals.

Heike.

Sharky 9. Mai 2005 08:39

Re: API- Funktion um alle Netzwerklaufwerke zu trennen?
 
Zitat:

Zitat von smart
...Ich werde mit einer Schleife alle Laufwerke durchgehen und die Fehlermeldung abfabgen. Das müsste gehen. Danke nochmals.

Hai,

anstelle des Abfangens der Fehlermeldungen könntest Du vorher mit diesem Code der DP-Katze prüfen ob es sich um ein Netzwerklaufwerk handelt.

smart 9. Mai 2005 11:16

Re: API- Funktion um alle Netzwerklaufwerke zu trennen?
 
Vielen Dank für die Infos. Ich habe es jetzt so gemacht.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  Drive: Char;
  DriveLetter: Char;
  Netzlaufwerk: String;
begin
for Drive := 'a' to 'z' do
begin
     case GetDriveType(PChar(Drive + ':\')) of
          DRIVE_REMOTE:
          Netzlaufwerk := Drive + ':';
     end;
     WNetCancelConnection2(PChar(Netzlaufwerk),1, True);
   end;
Showmessage('Alle Verbindung getrennt!')
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:58 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz