发信人: leezy (【HIT】穆子), 信区: BorlandDev
标  题: 取得所有的网络映射驱动器的列表
发信站: 哈工大紫丁香 (2002年01月19日15:52:46 星期六), 站内信件

摘　要：取得所有的网络映射驱动器的列表
关键字：网络，映射，驱动器
类　别：网络


CoDelphi.com版权所有，未经允许，不得进行任何形式转载
Function GetNetworkDriveMappings(SList:TStrings):Integer;
Var
  I:Char;
  ThePath:String;
  MaxNetPathLen:DWord;
Begin
  SList.Clear;
  MaxNetPathLen:=MAX_PATH;
  SetLength(ThePath,MAX_PATH);
  For I := 'A' to 'Z' Do
    If WNetGetConnection(
       PChar('+I+':'),PChar(ThePath),
         MaxNetPathLen)=NO_ERROR
    Then
      SList.Add(I+': '+ThePath);
  Result := SList.Count;
End;


--
°★．☆° ．★·°∴°★．°·∴°☆ ·°∴° ☆．．·°∴°．☆°★°∴°

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]