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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

已找到解决办法,供大家参考一下,只是可惜了我的分了哦.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;

Answer 6

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

Answer 7

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

Answer 8

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;