API- Funktion um alle Netzwerklaufwerke zu trennen?

[smart]

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;