局域网中访问某个目录需要用户和口令，输入后可以访问相应目录，问如何用程序实现访问目录（口令，用户在程序中写死）(200分)

这个问题，以前好像有人问过，你查一下历史记录吧

我查了，好像没有

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;

谢谢cnaoszh
该代码在98下正常，win2000下不行
另外：如何隐藏共享目录，即用户在资源管理器中看不到该搞共享的目录

多人接受答案了。