100分求助一个网络共享连接问题.

[jsandy]

. 已知服务器上装的是 2000 svr ,内建1用户 user001 密码是 ads259,开了一个共享目录 tools,并对用户 user001 设置了只读权限,请问怎么样在程序中连接上这个共享目录?

[jsandy]

晕啊,答非所问也,

[jsandy]

已找到解决办法,供大家参考一下,只是可惜了我的分了哦.

procedure TForm1.Button1Click(Sender: TObject);
var
NetRes:TNetResource;
begin
with NetRes do
begin
dwType:=RESOURCETYPE_ANY;
lpLocalName:='Z:';
lpRemoteName:='\\ServerName\tools';
lpProvider:='';
end;
WNetAddConnection2(NetRes,'ads259','user001',0);
end;

[sixgj]

关注……

[yhg_zl]

直接访问：\\计算机名\TOOLS
就可以亚

[ahjoe]

控件 NetConnect.
下载: http://www.ahjoe.net/2/netcon.rar

[oklida]

还不如在服务器上开一个FTP SERVER，给指定的用户访问目录权限呢

[oklida]

还不如在服务器上开一个FTP SERVER，给指定的用户访问目录权限呢

[jsandy]

在服务器上开一个FTP SERVER，怎么样在程序里登录 FTP 呢?

[Englash]

你那么胡说嘛，WIN2000有你用的代码忙？？
你就是想给自己点分就是了
不要脸

[fy00001]

to Englash(开始) 胡说些什么啊？不懂不要乱说

procedure TForm_PcConnection.ListBox_IPDblClick(Sender: TObject);
var
NRW:TNetResource;
H:Integer;
begin
Caption:='PcConnection 正在连接，请稍候......';
with NRW do
begin
dwType:=RESOURCETYPE_ANY;
lpLocalName:='';
lpRemoteName:=PChar('\\'+IP+'\'+tools);
lpProvider := '';
end;
H:=WNetAddConnection2(NRW,PChar(Edit_Password.Text),PChar(Edit_UserName.Text),CONNECT_UPDATE_PROFILE);
case H of
0 :ShellExecute(Handle,'open',PChar('\\'+IP+'\'+tools),'','',1);
31,53 :ShowMessage('　共享不存在！');
1219 :ShowMessage('　密码错误！');
else ;
ShowMessage('　　连接失败！　　');
end;
Caption:='PcConnection ErroeCode:('+IntToStr(H)+')';
end;