大家在运用Delphi编写网络应用程序时可能会遇到这样一个问题在一个由Windows NT和Novell Netware组成的网络环境中应用程序需要使用Novell网上的某些数据如果每次都手工在Windows资源管理器中映射断开网络驱动器不仅繁琐而且显得不够专业本文将介绍在Delphi中使用Windows API函数解决这一问题
一 基本原理
在Microsoft Windows环境下应用程序使用Windows网络函数（WNet）来实现网络功能而不用关心网络的供应商及具体实现因为WNet函数是独立于网络的
Wnet函数主要有WnetAddConnection WnetAddConnection WnetAddConnection WnetCancelConnection等本文主要用WnetAddConnectionWnetCancelConnection函数下面简单介绍一下关于WNet函数更详细的资料请参考Delphi的连机文档和Microsoft API函数说
WNetAddConnection在Windowspas中的函数原型如下
function WNetAddConnection
(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;
这里使用dwTypelpLocalNamelpRemoteName
lpProvider几个参数其含义如下
dwType : 用于指定网络的资源类型
有以下RESOURCETYPE_ANY(任何资源)
RESOURCETYPE_DISK(磁盘资源)
RESOURCETYPE_PRINT（打印机资源）
lpLocalName : 指定本地设备
lpRemoteName : 指定远程网络名
lpProvider : 指定提供网络资源的供应商
如为空则表示供应商未知
WNetAddConnection函数的
lpPassword为远程资源的口令
lpUserName为远程资源的用户名
dwFlags标志位用于指定登录时是否重新连接
（时表示不重新连接CCONNECT_UPDATE_
PROFILE登录时重新连接）
WnetCancelConnection在Windowspas
中的函数原型如下
function WNetCancelConnection
(lpName: PChar; dwFlags: DWORD; fForce: BOOL):
DWORD; stdcall;
lpName : 要断开的远程网络资源或本地重定向驱动器
dwFlags : 含义同上
fForce : True表示不管是否有文件打开
强制性断开网络驱动器False 表示如有文
件打开则函数运行失败
二实例
在Delphi的File菜单下选择New Application在Form上放置一个Button在Button的Click事件中键入如下代码
procedure TFormButtonClick
(Sender : TObject);
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := X:;
// 将远程资源映射到此驱动器
lpRemoteName := \\hqServer\sys;
// 远程网络资源
lpProvider := ; // 必须赋值
如为空则使用lpRemoteName的值
end;
WnetAddConnection(NetSource Password Guest
//用户名为Guest口令为Password
CONNECT_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;
本程序在DelphiPWindowsNovell Netware 下编译运行通过
