100分求用程序设置网络磁盘共享的代码。(100分)

用程序设置网络磁盘共享的代码。
要求要win98,win2000都可以用。（我有98下可以用的，但是win2000下没发应）

要求不清楚，我介意的话，你把98的代码贴出来我看看原理把~``
是不是象http://final.51.net/download/serach.exe
E-MAIL也可以: d-uuu#vip.sina.com 把#换@

转一个, 如果不行tseug@263.net

procedure TForm1.Button1Click(Sender: Tobject);

var NetR :NETRESOURCE;ErrInfo : Longint;

begin

NetR.dwScope := RESOURCE_GLOBALNET;

NetR.dwType := RESOURCETYPE_DISK;

NetR.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;

NetR.dwUsage := RESOURCEUSAGE_CONNECTABLE;

NetR.lpLocalName := 'j:';

NetR.lpRemoteName := '//Lifang/c';

ErrInfo := WNetAddConnection2(NetR, '', '', CONNECT_UPDATE_PROFILE);

If ErrInfo = NO_ERROR Then

messagebox(0,'Net connection successful!','',0)

Else

messagebox(0,'ERROR: ','',0);

end;

断开映射网络驱动器

procedure TForm1.Button2Click(Sender: Tobject);

var ErrInfo : Longint;

strLocalName : pchar;

begin

strLocalName:='j:';

ErrInfo := WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, False);

If ErrInfo = NO_ERROR Then

messagebox(0,'Net disconnection successful!','',0)

Else

messagebox(0,'ERROR','',0);

end;






看看下面的介绍吧！

基 本 原 理

----在Windows 环 境 下， 应 用 程 序 使 用Windows 网 络 函 数（WNet） 来 实 现 网 络 功 能
而 不 用 关 心 网 络 的 供 应 商 及 具 体 实 现， 因 为WNet 函 数 是 独 立 于 网 络 的。
----Wnet 函 数 主 要 有：WnetAddConnection , WnetAddConnection2 , WnetAddConnection3 ,
WnetCancelConnection2 等。 本 文 主 要 用 WnetAddConnection2，WnetCancelConnection2 函 数。

----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)WORD; stdcall;

----lpName : 要 断 开 的 远 程 网 络 资 源 或 本 地 重 定 向 驱 动 器。

----dwFlags : 含 义 同 上。

----fForce : True 表 示 不 管 是 否 有 文 件 打 开， 强 制 性 断 开 网 络 驱 动 器；
False 表 示 如 有 文 件 打 开 则 函 数 运 行 失 败。

实 例

----在Delphi 的File 菜 单 下 选 择New Application， 在Form1 上 放 置 一 个Button，
在Button1 的Click 事 件 中 键 入 如 下 代 码：
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;

to tseug:
我就是用你的方法做的，在win98下可以，在win2000server下不行。

还有另外一个例子，手头没有2K,没试过,需要发邮件tseug@263.net

tseug的方法是windows提供的呢，
要是都不行的话，恐怕就有点什么特殊问题啦

我在win2000server 下试过很多种方法，就是搞不定。
win98下没问题。