扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
Wnet函数主要有:WnetAddConnection , WnetAddConnection2 , WnetAddConnection3 , WnetCancelConnection2等。本文主要用WnetAddConnection2,WnetCancelConnection2函数,下面简单介绍一下,关于WNet函数更详细的资料请参考Delphi的连机文档和Microsoft API函数说。
WNetAddConnection2在Windows.pas中的函数原型如下:
function WNetAddConnection2 (var lpNetResource: TNetResource; lpPassword, lpUserName: PChar; dwFlags: DWORD): DWORD; stdcall; 为调用此函数必须填写 lpNetResouce结构,此结构的定义为: typedef struct _NETRESOUCE{ DWORD dwScope; DWORD dwType; DWORD dwDisplayType; DWORD dwUsage; LPTSTR lpLocalName; LPTSR lpRemoteName; LPTSr lpProvider; } NETRESOURCE; 这里使用dwType,lpLocalName,lpRemoteName, lpProvider几个参数。其含义如下: dwType : 用于指定网络的资源类型, 有以下RESOURCETYPE_ANY(任何资源) , RESOURCETYPE_DISK(磁盘资源) , RESOURCETYPE_PRINT(打印机资源)。 lpLocalName : 指定本地设备。 lpRemoteName : 指定远程网络名。 lpProvider : 指定提供网络资源的供应商。 如为空,则表示供应商未知。 WNetAddConnection2函数的 lpPassword为远程资源的口令。 lpUserName为远程资源的用户名。 dwFlags标志位用于指定登录时是否重新连接 (0时表示不重新连接,CCONNECT_UPDATE_ PROFILE登录时重新连接)。 WnetCancelConnection2在Windows.pas 中的函数原型如下: function WNetCancelConnection2 (lpName: PChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall; lpName : 要断开的 掏缱试椿虮镜刂囟ㄏ蚯鳌? dwFlags : 含义同上。 fForce : True表示不管是否有文件打开, 强制性断开网络驱动器;False 表示如有文 件打开则函数运行失败。
procedure TForm1.Button1Click (Sender : TObject); var NetSource : TNetResource; begin with NetSource do begin dwType := RESOURCETYPE_ANY; lpLocalName := X:; // 将远程资源映射到此驱动器 lpRemoteName := \\hqServer\sys; // 远程网络资源 lpProvider := ; // 必须赋值, 如为空则使用lpRemoteName的值。 end; WnetAddConnection2(NetSource, Password, Guest, //用户名为Guest,口令为Password CONNECT_UPDATE_PROFILE); //下次登录时重新连接 //此时在Windows资源管理器中可看到网络驱动器X: if MessageDlg(Are you sure to disconnect Drive ?, mtConfirmation, [mbYes, mbNo], 0) = mrYes then //不管是否有文件打开,断开网络驱动器X: WNetCancelConnection2 ( X:, CONNECT_UPDATE_PROFILE, True); end; end;本程序在Delphi3.0,4.0、PWindows95、Novell Netware 3.12下编译运行通过。
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者