发信人: 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]
|
|