盒子论坛 v2.1

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 := 'z:';
  NetR.lpRemoteName := '\\192.168.0.1\test';
  NetR.lpProvider :=nil;
  ErrInfo := WNetAddConnection2(NetR, ', 'guest', CONNECT_UPDATE_PROFILE);
  If ErrInfo = NO_ERROR Then
    messagebox(0,'Net connection successful!',',0)
  Else
    messagebox(0,PChar('ERROR: '+inttostr(ErrInfo)),',0);
end;
//断开映射网络驱动器
procedure TForm1.Button2Click(Sender: TObject);
var
  ErrInfo : Longint;
  strLocalName : pchar;
begin
  strLocalName:='z:';
  ErrInfo := WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE,False);
  If ErrInfo = NO_ERROR Then
    messagebox(0,'Net disconnection successful!',',0)
  Else
    messagebox(0,'ERROR',',0);
end;

----------------------------------------------

充电..........

作者：

chenshx (freeboy)	★☆☆☆☆	-
	盒子活跃会员

2003/12/7 11:59:26

2楼：

大哥,麻烦你解释一下好不咯?

小弟我把代码复制过去后发现总是提示"ERROR: 5";这是怎么回事?

还有,能不能帮我解释一下NETRESOURCE的用法?我什么都看不懂啊~~~~~~
----------------------------------------------
-

作者：

cjrb (Thinking In 魂)	★☆☆☆☆	-
	盒子活跃会员

2003/12/7 12:11:55

3楼：

WNetAddConnection2(NetR, '密码', '用户名', CONNECT_UPDATE_PROFILE);

----------------------------------------------

充电..........

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/12/7 14:22:59

4楼：

偶也来学习
----------------------------------------------

作者：

zsredmoon (=^@^=)	★☆☆☆☆	-
	盒子活跃会员

2003/12/8 8:40:29

5楼：

----------------------------------------------

=^@^=

信息

登陆以后才能回复