delphi实现映射和断开网络驱动器

最新推荐文章于 2020-12-04 21:59:57 发布

weixin_30615767

最新推荐文章于 2020-12-04 21:59:57 发布

阅读量187

点赞数

原文链接：http://www.cnblogs.com/yzryc/p/6292655.html

版权

type   TNetDiskMapper=class

  private
     FNetResource: TNetResource;
     FUserName,FPassWord:PWideChar;
  public
     constructor Create(DriveName,ShareURI,UserName,Password:PWideChar);
     destructor  Destory();
     function ConnectDiskMap:boolean;
     function disConnectDiskMap:boolean;
end;


var NetDiskMap: TNetDiskMapper;


{ TNetDiskMapper }

constructor TNetDiskMapper.Create(DriveName, ShareURI, UserName,
  Password: PWideChar);
begin
  FNetResource.dwType := RESOURCETYPE_DISK{磁盘资源};
  FNetResource.lpLocalName :=driveName { 指定本地设备 };
  FNetResource.lpRemoteName := PChar(ShareURI) { 指定远程网络名 };
  FNetResource.lpProvider := nil { 指定提供网络资源的供应商。如为空，则表示供应商未知。 };
  FUserName:=UserName { 远程资源的用户名 };
  FPassword:=Password { 远程资源的口令 };
end;

function TNetDiskMapper.ConnectDiskMap: boolean;
begin

{ WNetAddConnection2 的参数说明：

dwFlags标志位用于指定登录时是否重新连接（0时表示不重新连接，CCONNECT_UPDATE_PROFILE登录时重新连接）。
}


   result:=false;
   case WNetAddConnection2(FNetResource,FPassword,FUserName,CONNECT_UPDATE_PROFILE) of
       NO_ERROR:begin result:=true; ShowMessage('映射成功') ; end;
       ERROR_ACCESS_DENIED: showmessage('Access is denied.');
       ERROR_ALREADY_ASSIGNED:ShowMessage('The device specified in the lpLocalName parameter is already connected.');
       ERROR_BAD_DEV_TYPE:    ShowMessage('The device type and the resource type do not match.');
       ERROR_BAD_DEVICE:    ShowMessage('The value specified in lpLocalName is invalid');
       ERROR_BAD_NET_NAME: ShowMessage('The value specified in the lpRemoteName parameter is not valid or cannot be located.');
       ERROR_BAD_PROFILE :    ShowMessage('    The user profile is in an incorrect format.')   ;
       ERROR_CANNOT_OPEN_PROFILE :    ShowMessage(' The system is unable to open the user profile to process persistent connections.    ');
       ERROR_DEVICE_ALREADY_REMEMBERED    : ShowMessage('An entry for the device specified in lpLocalName is already in the user profile.') ;
       ERROR_EXTENDED_ERROR    :ShowMessage('A network-specific error occurred. To get a description of the error, use the WNetGetLastError function. ');
       ERROR_INVALID_PASSWORD:ShowMessage('    The specified password is invalid. ');
       ERROR_NO_NET_OR_BAD_PATH:ShowMessage(' The operation cannot be performed because either a network component is not started or the specified name cannot be used.');
       ERROR_NO_NETWORK:ShowMessage('    The network is not present. ');
       else
       ShowMessage('其他意外终止!');
   end;
end;



destructor TNetDiskMapper.Destory;
begin
  disConnectDiskMap;
end;

function TNetDiskMapper.disConnectDiskMap: boolean;
begin
    if NO_ERROR= WNetCancelConnection2(FNetResource.lpLocalName,CONNECT_UPDATE_PROFILE,True) then
    begin
         result:=true;
    end
    else
       result:=false;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
//映射网络驱动器
    NetDiskMap:=TNetDiskMapper.Create('Z:','\\127.0.0.1\2016年安规调考',nil,nil);
    showmessage(booltostr(NetDiskMap.ConnectDiskMap,true));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//断开网络驱动器

if assigned(NetDiskMap) and ( NetDiskMap<>nil) then
showmessage(booltostr(NetDiskMap.disConnectDiskMap,true));
end;