知识大全用Delphi实现网络驱动器的映射和断开

Posted 2022-07-14 函数

篇首语：未曾哭过长夜的人，不足以语人生。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi实现网络驱动器的映射和断开相关的知识，希望对你有一定的参考价值。

用Delphi实现网络驱动器的映射和断开 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　大家在运用Delphi编写网络应用程序时可能会遇到这样一个问题在一个由Windows NT和Novell Neare组成的网络环境中应用程序需要使用Novell网上的某些数据如果每次都手工在Windows资源管理器中映射断开网络驱动器不仅繁琐而且显得不够专业本文将介绍在Delphi中使用Windows API函数解决这一问题

一基本原理　　在Microsoft Windows环境下应用程序使用Windows网络函数（WNet）来实现网络功能而不用关心网络的供应商及具体实现因为WNet函数是独立于网络的　　Wnet函数主要有 WnetAddConnection WnetAddConnection WnetAddConnection WnetCancelConnection 等本文主要用WnetAddConnection WnetCancelConnection 函数下面简单介绍一下关于WNet函数更详细的资料请参考Delphi的连机文档和Microsoft API函数说

　　WNetAddConnection 在Windows pas中的函数原型如下

function WNetAddConnection (var lpNetResource: TNetResource;lpPassword lpUserName: PChar; dwFlags: DWORD): DWORD; stdcall;

　　为调用此函数必须填写lpNetResouce结构此结构的定义为 typedef struct _NETRESOUCEDWORD 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 : 指定提供网络资源的供应商如为空则表示供应商未知 WNetAddConnection 函数的lpPassword为远程资源的口令 lpUserName为远程资源的用户名 dwFlags标志位用于指定登录时是否重新连接（时表示不重新连接 CCONNECT_UPDATE_PROFILE登录时重新连接） WnetCancelConnection 在Windows pas中的函数原型如下 function WNetCancelConnection (lpName: PChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;lpName : 要断开的远程网络资源或本地重定向驱动器 dwFlags : 含义同上 fForce : True表示不管是否有文件打开强制性断开网络驱动器 False 表示如有文件打开则函数运行失败

二实例　　在Delphi的File菜单下选择New Application 在Form 上放置一个Button 在Button 的Click事件中键入如下代码 procedure TForm Button Click(Sender : TObject);varNetSource : TNetResource;beginwith NetSource dobegindwType := RESOURCETYPE_ANY;lpLocalName := X: ; // 将远程资源映射到此驱动器lpRemoteName := \\\\hqServer\\sys ; // 远程网络资源lpProvider := ; // 必须赋值如为空则使用lpRemoteName的值 end;WnetAddConnection (NetSource Password Guest //用户名为Guest 口令为PasswordCONNECT_UPDATE_PROFILE); //下次登录时重新连接//此时在Windows资源管理器中可看到网络驱动器X if MessageDlg( Are you sure to disconnect Drive ? mtConfirmation [mbYes mbNo] ) = mrYes then //不管是否有文件打开断开网络驱动器X WNetCancelConnection ( X: CONNECT_UPDATE_PROFILE True); end;end;

cha138/Article/program/Delphi/201311/8529

知识大全 用Delphi实现网络驱动器的映射和断开

知识大全用Delphi实现网络驱动器的映射和断开