如何判断 \\ip地址\共享目录 目录是否存在

Question

如何判断局域网 \\ip地址\共享目录 目录是否存在
   \\计算机名\共享目录可以
 如果共享目录需要 用户名 共享密码 该如何写代码 谢谢!

Answer 1

localname:本地磁盘号 如：Y: Z: 
remotename: 共享路径 如 :\\server\share
username : 用户名
password: 密码
function connectserver(localname: string; remotename: string; username: string; password: string): boolean;
var
  NetSource: TNetResource; Errinfo: longint;
begin
  with NetSource do begin
    dwType := RESOURCETYPE_ANY; //RESOURCETYPE_DISK
    lpLocalName := pchar(localname);
         // 将远程资源映射到此驱动器
    lpRemoteName := pchar(remotename);
        // 远程网络资源
    lpProvider := '';
        // 必须赋值,如为空则使用lpRemoteName 的值。
  end;
  ErrInfo := WnetAddConnection2(NetSource, pchar(password), pchar(username), 0);
  result := (ErrInfo = NO_ERROR);
end;
利用映射的方法，失败则表示不能连接或者不存在该共享资源。