Alle Netzwerklaufwerke trennen

[hhcm]

Da war ich auch mal.

Ich hab das in einem Projekt wie folgt gemacht.

Delphi-Quellcode:

var i : Integer;
    sNetPath: String;
    dwMaxNetPathLen : DWord;
begin
   dwMaxNetPathLen := MAX_PATH;
   SetLength(sNetPath, dwMaxNetPathLen);

   for i := 0 to 25 do
   begin
      if( NO_ERROR = WNetGetConnection(PChar('' + Chr( 65 + i ) + ':' ), PChar( sNetPath ),dwMaxNetPathLen ) )then
       // Netzlaufwerk. Mache etwas damit
   end;
end;