查找判断本机是否连有某个网络盘，或者叫网络资源连接、网络驱动器、网盘

文章摘自博文https://www.cnblogs.com/dmqhjp/p/14943140.html

delphi自带的用于查找判断对象是否存在的2个函数：FileExists作用于文件，DirectoryExists作用于文件夹。若是用于查找判断本机网盘是否连有某个盘，无论是否连有，前者永远返回false，后者永远返回true。

故想要查找判断本机是否连有某个网络盘，需另写一个函数。

上代码之前首先了解一下后面要用到的GetDriveType函数：

GetDriveType(路径) 是判断一个磁盘驱动器的类型的， 返回一个整数： 

0 DRIVE_UNKNOWN 驱动器类型不确定
1 DRIVE_NO_ROOT_DIR 系统目录不存在
2 DRIVE_REMOVABLE 是可移动驱动器
3 DRIVE_FIXED 是固定驱动器
4 DRIVE_REMOTE 是网络驱动器
5 DRIVE_CDROM 是CD-ROM驱动器
6 DRIVE_RAMDISK 是虚拟驱动器

 

接下来看代码。首先，在本窗体类的private区声明：

然后按Ctrl+shift+C，系统会自动在implementation区创建好实现部分的代码框架，实现部分代码如下：

function TForm1.NetworkDiskExists(DirPath: string): Boolean; function VolumeID(DriveChar: Char): string; var OldErrorMode: Integer; NotUsed, VolFlags: DWORD; Buf: array [0..MAX_PATH] of Char; begin OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS); try Buf[0] := #$00; if GetVolumeInformation(PChar(DriveChar + ':\'), Buf, DWORD(sizeof(Buf)), nil, NotUsed, VolFlags, nil, 0) then SetString(Result, Buf, StrLen(Buf)) else Result := ''; if DriveChar < 'a' then Result := AnsiUpperCaseFileName(Result) else Result := AnsiLowerCaseFileName(Result); Result := Format('[%s]',[Result]); finally SetErrorMode(OldErrorMode); end; end; function NetworkVolume(DriveChar: Char): string; var Buf: Array [0..MAX_PATH] of Char; DriveStr: array [0..3] of Char; BufferSize: DWORD; begin BufferSize := sizeof(Buf); DriveStr[0] := UpCase(DriveChar); DriveStr[1] := ':'; DriveStr[2] := #0;
 //WNetGetConnection：此API函数用于获取网络资源连接名称,即取得它的第1个参数DriveStr所对应的网盘名，并将其赋值给第2个参数Buf。 if WNetGetConnection(DriveStr, Buf, BufferSize) = WN_SUCCESS then //Buf被赋值当前找到的网络盘名称，此时网络盘以一个一个的字符分开存放在数组Buf中(如['\', '\', '1', '9', '2', '.', '1', '6', '8', '.', '2', '.', '2', '8', '\', 'A', 'S', 'H', 'L', 'E', 'Y', #0, #244, #24, #0, '$', #245, #24, #0, '<', #245, #24, #0, #0, #0, #0, #0, #0,,,,,,])。
    begin SetString(Result, Buf, BufferSize);//这里将Buf整理成连贯的网盘名，然后赋给结果Result。(如将上面例子整理成'\\192.168.2.28\ASHLEY'#0'?'#0'$?'#0'<?'#0#0#0#0#0#0#0#0#0'旚'#$18#0#4#0#0#0#0#0'c'#0#0#0#0#0#0,,,,,,') if DriveChar < 'a' then Result := AnsiUpperCaseFileName(Result)//将结果Result全部大写再返回 else Result := AnsiLowerCaseFileName(Result);//将结果Result全部小写再返回 end
    else Result := VolumeID(DriveChar); end; var i:integer; begin Result:=False; for i := 65 to 90 do
  begin
    if (GetDriveType(Pchar(chr(i)+':\')) =4) then//4代表当前找到的盘是网络驱动器，即网盘。
    begin
      if Pos(LowerCase(DirPath),LowerCase(NetworkVolume(chr(i))))>0 then//用Pos查找上面返回的字符串Result中是否含有DirPath，若含有则会返回一个大于0的位置整数。
      begin Result:=True; Break; end; end; end; end;

然后传参数调用该函数即可。

注意：

参数的形式是：\\ip地址\文件夹名称。如：\\192.168.2.87\TEST，  \\192.168.2.28\Ashley。千万不能在文件夹后面再加上“\”,这样Pos会无法匹配到！

调用时的代码如下：