|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/12/7 10:48:34 |
标题: |
Delphi开发中的一个小问题,请各位大虾帮忙啊! |
浏览:1865 |
|
加入我的收藏 |
楼主: |
我在写一个Delphi的小程序时,想访问网上邻居中的一台计算机,但是Win2000机制下必须提供用户名和相应密码,我用什么方法能在访问该计算机的同时提供用户名和密码(我想直接保存在程序中)?
----------------------------------------------
- |
作者: |
cjrb (Thinking In 魂) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/12/7 11:06:20 |
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;
----------------------------------------------
充电..........
|
作者: |
|
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楼: |
偶也来学习
----------------------------------------------
|
作者: |
|
2003/12/8 8:40:29 |
5楼: |
----------------------------------------------
=^@^=
|
|