List All Network Drives

GetNetworkDriveMappings(Memo1.Lines) ;

function GetNetworkDriveMappings (SList: TStrings): integer;
var
   c: Char;
   ThePath: string;
   MaxNetPathLen: DWord;
begin
   SList.Clear;
   MaxNetPathLen := MAX_PATH;
   SetLength(ThePath, MAX_PATH) ;
   for c := 'A' to 'Z' do
     if WNetGetConnection(PChar('' + c + ':'), PChar(ThePath),MaxNetPathLen) = NO_ERROR then sList.Add(c + ': ' + ThePath) ;
   Result := SList.Count;
end;

• 1
• 2
• 3
• 4
• 5