精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Delphi 网络编程>>Re: 再次请教:怎样在WIN NT下映射网络驱

主题:Re: 再次请教:怎样在WIN NT下映射网络驱
发信人: ht99()
整理人: (2000-12-05 18:39:45), 站内信件
【 在 aide (笑问天) 的大作中提到: 】
: 在DELPHI程序中控制网络驱动器的映射和断开!
: 多谢!用此方法让你可以映射网络驱动器和断开映射网络驱动器,用本机来试通不过,
如果你在网络上也通不过,请告知建立映射网络驱动器 
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 := 'j:'; 

NetR.lpRemoteName := '\\Lifang\c'; 

ErrInfo := WNetAddConnection2(NetR, '', '', CONNECT_UPDATE_PROFILE); 


If ErrInfo = NO_ERROR Then 

messagebox(0,'Net connection successful!','',0) 

Else 

messagebox(0,'ERROR: ','',0); 

end; 

断开映射网络驱动器 
procedure TForm1.Button2Click(Sender: Tobject); 

var ErrInfo : Longint; 

strLocalName : pchar; 

begin 

strLocalName:='j:'; 

ErrInfo := WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE,
 False); 

If ErrInfo = NO_ERROR Then 

messagebox(0,'Net disconnection successful!','',0) 

Else 

messagebox(0,'ERROR','',0); 

end; 


 
 





--
?
           共同探索,共同提高
    http://www.pickweb.com/haitao
       以Delphi为主体内容,有控件源码,大量文章    
                欢迎作客  谢谢!              

※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.102.123.77]

[关闭][返回]