unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}
Function GetNetworkDriveMappings(SList:TStrings):Integer;
Var
  I:Char;
  ThePath:String;
  MaxNetPathLen:DWord;
  drivestr:string;
Begin
  SList.Clear;
  MaxNetPathLen:=MAX_PATH;
  SetLength(ThePath,MAX_PATH);
  For I := 'A' to 'Z' Do
  begin
    DriveStr:=I ':';
    If WNetGetConnection(
       pchar(DriveStr),PChar(ThePath),
         MaxNetPathLen)=NO_ERROR
    Then
      SList.Add(I ': ' ThePath);
  end;
  Result := SList.Count;
End;    procedure TForm1.Button1Click(Sender: TObject);
begin
  GetNetworkDriveMappings(memo1.lines);
end;    end.