如何模拟输入用户名、密码来访问网络邻居

最新推荐文章于 2021-06-20 03:02:56 发布

Devillyd

最新推荐文章于 2021-06-20 03:02:56 发布

阅读量8.6k

点赞数

分类专栏：网络通信文章标签：网络 delphi network button access integer

本文链接：https://blog.csdn.net/Devillyd/article/details/1362969

版权

网络通信专栏收录该内容

32 篇文章 0 订阅

订阅专栏

基本原理

---- 在 Windows 环境下，应用程序使用 Windows 网络函数（ WNet ）来实现网络功能
而不用关心网络的供应商及具体实现，因为 WNet 函数是独立于网络的。
----Wnet 函数主要有： WnetAddConnection , WnetAddConnection2 , WnetAddConnection3 ,
WnetCancelConnection2 等。本文主要用 WnetAddConnection2 ， WnetCancelConnection2 函数。

----WNetAddConnection2 在 Windows.pas 中的函数原型如下：

----function WNetAddConnection2(var lpNetResource: TNetResource;lpPassword, lpUserName:

----PChar; dwFlags: DWORD): DWORD; stdcall;

---- 为调用此函数，必须填写 lpNetResouce 结构，此结构的定义为：

typedef struct _NETRESOUCE{
DWORD dwScope;
DWORD dwType;
DWORD dwDisplayType;
DWORD dwUsage;
LPTSTR lpLocalName;
LPTSR lpRemoteName;
LPTSr lpProvider;
} NETRESOURCE;

---- 这里使用 dwType,lpLocalName,lpRemoteName,lpProvider 几个参数。其含义如下：

----dwType : 用于指定网络的资源类型，有以下 RESOURCETYPE_ANY( 任何资源 ),
RESOURCETYPE_DISK( 磁盘资源 ) , RESOURCETYPE_PRINT （打印机资源）。

----lpLocalName : 指定本地设备。

----lpRemoteName : 指定远程网络名。

----lpProvider : 指定提供网络资源的供应商。如为空，则表示供应商未知。

----WNetAddConnection2 函数的 lpPassword 为远程资源的口令。

----lpUserName 为远程资源的用户名。 dwFlags 标志位用于指定登录时是否
重新连接（ 0 时表示不重新连接， CCONNECT_UPDATE_PROFILE 表示登录时重新连接）。

----WnetCancelConnection2 在 Windows .pas 中的函数原型如下：

----function WNetCancelConnection2(lpName: PChar; 　　 dwFlags: DWORD; fForce: BOOL):DWORD; stdcall;

----lpName : 要断开的远程网络资源或本地重定向驱动器。

----dwFlags : 含义同上。

----fForce : True 表示不管是否有文件打开，强制性断开网络驱动器；
False 表示如有文件打开则函数运行失败。

实例

---- 在 Delphi 的 File 菜单下选择 New Application ，在 Form1 上放置一个 Button ，
在 Button1 的 Click 事件中键入如下代码：
procedure TForm1.Button1Click(Sender : TObject);
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := ‘X:';
// 将远程资源映射到此驱动器
lpRemoteName := ‘//hqServer/sys';
// 远程网络资源
lpProvider := ‘';
// 必须赋值 ,
如为空则使用 lpRemoteName 的值。
end;
WnetAddConnection2(NetSource,‘Password',‘Guest',
// 用户名为 Guest ，口令为 Password
CONNECT_UPDATE_PROFILE);
// 下次登录时重新连接
// 此时在 Windows 资源管理器中
可看到网络驱动器 X ：
if MessageDlg(‘Are you sure to disconnect Drive ?',
　　 mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
// 不管是否有文件打开，
断开网络驱动器 X ：
WNetCancelConnection2( ‘X:', CONNECT_UPDATE_
PROFILE, True);
end;
end;
============================================================================================

localname:本地磁盘号如：Y: Z:

remotename: 共享路径如 ://server/share

username : 用户名

password: 密码

function connectserver(localname: string; remotename: string; username: string; password: string): boolean;

var

NetSource: TNetResource; Errinfo: longint;

begin

with NetSource do begin

dwType := RESOURCETYPE_ANY; //RESOURCETYPE_DISK

lpLocalName := pchar(localname);

// 将远程资源映射到此驱动器

lpRemoteName := pchar(remotename);

// 远程网络资源

lpProvider := '';

// 必须赋值,如为空则使用lpRemoteName 的值。

end;

ErrInfo := WnetAddConnection2(NetSource, pchar(password), pchar(username), 0);

result := (ErrInfo = NO_ERROR);

end;

问题：【求助】局域网中如何通过网络共享实现文件传输 ? ( 积分： 50, 回复： 7, 阅读： 146 ) 分类：数据库-C/S型 ( 版主： qince, luyear )
来自：秋伊水, 时间： 2003-4-23 21:34:00, ID ： 1796728	[ 显示：小字体 \| 大字体 ]
局域网服务器上面有共享目录 share 用户 aaa 可以通过网络共享在 share 中添加文件 , 如何用 delphi 实现向服务器 share 目录上传文件 ! 假定 aaa 用户的帐户和密码都是 aaa 来自：秋伊水, 时间： 2003-4-23 22:00:00, ID ： 1796785 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); 这个好像可以我刚才试过了 ! 不过如果网络共享要登陆怎么写啊 ???? 来自： stuwei, 时间： 2003-4-23 22:03:00, ID ： 1796790 参考 WNetAddConnection 函数来自：秋伊水, 时间： 2003-4-23 22:06:00, ID ： 1796794 能具体举个例子吗 ? 谢谢了 !!! 来自：秋伊水, 时间： 2003-4-24 10:48:00, ID ： 1797735 ding 来自： shiningplus, 时间： 2003-4-24 12:35:00, ID ： 1798311 WinExec( PChar(Format('net use//%s/ipc$ "%s" /user: "%s" ', [Edtserver.Text, EdtPassword.Text, EdtUserName.Text])), 0 );

COPY文件的问题

问题： COPY 文件的问题 ( 积分： 100, 回复： 11, 阅读： 229 ) 分类： Windows API ( 版主： amo, cAkk )
来自：折翅飞翔, 时间： 2003-2-11 12:21:00, ID ： 1615211	[ 显示：小字体 \| 大字体 ]
我想用 DELPHI 做一个 COPY 文件的程序，程序要求从指定的机器中 COPY 某几个文件到另一台机器中，程序运行在一台有双网卡的机器上，利用网卡 A 到 A 机器 COPY 文件，再利用本机网卡 B ， COPY 到 B 机器中，每次间隔由手工制定，程序可以自动计算出每分钟 COPY 的速度。 > 请教的问题： 1 、怎样实现 COPY 功能？ > 2 、计算每分钟 COPY 的速度怎样实现？ > 3 、如果某个网卡连接的机器出现网络堵塞（ 1 分钟不能 COPY 成功），能及时报警，请问怎样判断是那块网卡出现的堵塞？来自：张无忌, 时间： 2003-2-11 12:23:00, ID ： 1615214 1,2 很容易用 CopyFileEx() 3, 就麻烦了，知道哪个网卡出问题太麻烦，如果真要知道，那就自己用 SOCKET 写个简单的程序，就可以解决以上 3 个问题来自： lcl_003, 时间： 2003-2-11 12:27:00, ID ： 1615220 前几天刚好写了个互相考文件的东西 WNetAddConnection('//192.168.0.60/chan','','192.168.0.20'); copyfile(PChar(filepath+'chan/'+sendfile),PChar('//192.168.0.60/chan/'+sendfile),false); label1.Caption:=' 与监控端连接成功！ '; button1.Caption:=' 关闭 '; 来自：折翅飞翔, 时间： 2003-2-11 12:38:00, ID ： 1615235 请问 CopyFileEx() 怎样使用呀？怎样 COPY ，怎样计算 COPY 速度？来自：张无忌, 时间： 2003-2-11 12:38:00, ID ： 1615238 你不会看看帮助， DELPHI 的 WIN32 SDK 帮助里就有来自：唐佐平, 时间： 2003-2-11 13:31:00, ID ： 1615380 关注！来自：折翅飞翔, 时间： 2003-2-12 12:26:00, ID ： 1617328 我查了一下 CopyFileEx() 好象都是 BCB 中使用的没有在 DELPHI 中使用过呀来自： copy_paste, 时间： 2003-2-12 12:48:00, ID ： 1617362 function CopyProgress(FileSize, Transferred: Int64; StreamSize, StreamTransferred: Int64; StreamNumber, CallbackReason: DWORD; SourceFile, DestFile: THandle; Data: Pointer): DWORD; stdcall; var Form: TForm1; begin Form := Data; Form.ProgressBar1.Max := FileSize; Form.ProgressBar1.Position := Transferred; Result := PROGRESS_CONTINUE; Application.ProcessMessages; end; procedure TForm1.Button1Click(Sender: TObject); begin CopyFileEx('ExistsFile.ext', 'newFile', @CopyProgress, Self, nil, COPY_FILE_FAIL_IF_EXISTS); end; 来自：春意, 时间： 2003-2-12 13:23:00, ID ： 1617433 s: String; begin s := 'c:/ycy.exe'; copyfile(pchar(Application.ExeName),pchar(s),true); ShowMessage(' 成功 '); end; 来自：折翅飞翔, 时间： 2003-2-12 13:31:00, ID ： 1617456 to : 春意你的这个文件 COPY 到什么地方去了？来自： lvxq, 时间： 2003-2-13 13:09:00, ID ： 1619332 利用 copyfile 命令我想控制会麻烦一点吧，尤其在时间计算方面。在许多时候，我觉得用读写文件的方式会比较好 example var buf:array [0..10245] of char; // Get 5 K bytes in one time Han1,Han2:Integer; lRead,lRSize,lWrite,lWSize:DWORD; i:Integer; bufSize:DWORD; begin bufSize:=51024; Label1.caption:=DateTimeToStr(now); Application.ProcessMessages ; Han1:=FileOpen( 源文件 ,fmOpenRead); if Han1<0 then exit; // 文件打开失败 Han2:=FileCreate( 目标文件 ) ; // 目标文件可以是 //ComputerName/ 共享名 / 路径 / 文件名 if Han2<0 then exit; // 文件创建失败； lRSize:=FileSeek(han1,0,2); // 返回源文件大小 _ 字节数 lWSize:=0; FileSeek(han1,0,0); // 回到文件头，准备读 for i:=1 to (lRsize div bufsize)+1 do begin lRead:=FileRead(han1,buf,bufSize); // 读指定大小的内容 if lRead<1024 then begin lWrite:=FileWrite(Han2,buf,lRead); // 小于指定大小，意味着文件坏，或者到文件尾 lWSize:=lWSize+lRead; // 累计写入的字节数，你可以与源 // 文件大小比较 break; end else begin lWrite:=FileWrite(Han2,buf,bufSize); lWSize:=lWSize+bufSize; end; end; FileClose(Han1); // 关闭源文件 FileClose(Han2); // 关闭目标文件 Label2.caption:=DateTimeToStr(now); Application.ProcessMessages ; 如果文件尺寸大，你就可以发现这个时间差了，当然你可以用更精确的计时甚至比较到底有没有写成功，。。。。应该能判断你的要求。上面是一般文件操作方式，怎么样，终生受用吧？这样的回答，应该满分吧？给 100 ，否则没完

如何创建操作系统win2000用户，或者验证用户密码

if WNetAddConnection(pchar('//'+computname),pchar(username),pchar(password))=0 then
showmessage(' 用户名密码正确，连接成功！！！ ')
else
showmessage(' 用户名密码不正确，连接失败！！！ ')

在客户端启动时未登陆2000server域的情况下，如何通过编写delphi程序登陆server访问共享文件夹？？？

服务器： 2000server
客户端： 98&2000server&2000professionol
在客户端启动时，不登陆 2000server 域，如何在程序启动时进行登陆，使客户端可以访问
server 上的共享目录？？？？

在知道登录用户名与密码情况下 , 若客户端是 win2K 的则好办 , 直接用 winexec 执行
net use //servername " 密码 " :user/" 用户名称 " 应该就可以了 ,
但若是 win9X 系统的 , 则只能用 WNetAddConnection(RemoteName,password,UserName) 的方式
去连接了

我也曾有过类似的想法 , 因为经常在关机的时候被提醒 " 有一个用户正在和你连
接 " 到底是哪位君子 , 不得而知 . 所以相做一个监测工具 .
但找遍了 Api 也没找到 .
倒是找到了如何看到自己打开了其它机器的资源 , 并可断开 , 以防别人关机时也被
提示 . 希望有所帮助 ;
顺便说一下 , 实现了通知一下 .
1. 如何看到自己打开了其它机器的资源 :
WNetOpenEnum();
WNetEnumResource();

2. 断开和别人的某个连接 :
WNetCancelConnection();
具体用法看帮助吧 .

哈 ~~ 我以前有搞过 , 一个土办法 , 但还挺管用

用批处理让
netstat -n >err 一直工作
在用 Dephi 的定时器，一段时间去处理 Err 文件

有机器连上就有不同的 IP 地址

执行前先映射网络驱动器
wnetaddconnection('//xo1/program file',' 密码 ','H:');
复制文件完毕再断开网络驱动器
wnetcancelconnection('H:',true);

如何登录网络上计算机

我们可以在 Windows 里用 Net Use //ComputerName 命令后输入密码就可以登录到网络上的计
算机了，请问在程序里怎么实现？谢谢了！

WNetAddConnection
WNetAddConnection2
WNetAddConnection3
WNetCancelConnection
WNetCancelConnection2
WNetConnectionDialog
WNetDisconnectDialog
WNetGetConnection
WNetGetUniversalName

怎样实现远程计算机的登录？我不映射他的磁盘。

也就是用 Delphi 建立一个 IPc$ 会话。

来自： yanghaijun, 时间： 2003-5-8 18:06:00, ID ： 1841487

没搞过 , 一般写这方面的大部分是 C++ 的资料 ...

来自： heqian, 时间： 2003-5-8 18:13:00, ID ： 1841518

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
netresource:Tnetresource;
re:dword;
begin
netresource.dwScope:=RESOURCE_GLOBALNET;
netresource.dwUsage:=RESOURCEUSAGE_CONNECTABLE;
netresource.dwType:=RESOURCETYPE_DISK;
netresource.dwDisplayType:=RESOURCEDISPLAYTYPE_SERVER;
netresource.lpLocalName:='';
netresource.lpRemoteName:='//server_name';
netresource.lpProvider:='';
re:=WNetAddConnection3(
application.Handle,
netresource,
'password',
'username',
CONNECT_UPDATE_PROFILE
);
if re=NO_ERROR then
begin
showmessage('ok');
end
else begin
application.MessageBox(' 无法连接到服务器，请与系统管理员联系 ',' 系统提示 ',mb_ok);
application.Terminate;
end;
end;

来自： 天宇天蓝, 时间： 2003-5-9 7:51 :00, ID ： 1842550

对不起！我没有测试通过。
我有两个例子，请大家看看：
var
aa:TNetResource;
retval : longint;
begin
aa.dwScope := RESOURCE_CONNECTED;
aa.dwType := RESOURCETYPE_ANY;
aa.lpLocalName := '';
aa.lpRemoteName :=pchar(LabeledEdit1.text);//compname
aa.lpProvider := Nil;

RetVal := WNetAddConnection2(aa,pchar(LabeledEdit3.Text ),pchar(LabeledEdit2.Text ),CONNECT_PROMPT);
// showmessage(inttostr(retval));//LabeledEdit3.Text 为密码， LabeledEdit2.Text 密码
case RetVal of
NO_ERROR:StatusBar1.Panels[0].Text:=' 已连接 ';
ERROR_ACCESS_DENIED : StatusBar1.Panels[0].Text:='ERROR_ACCESS_DENIED';
ERROR_ALREADY_ASSIGNED: StatusBar1.Panels[0].Text:='ERROR_ALREADY_ASSIGNED';
ERROR_BAD_DEV_TYPE: StatusBar1.Panels[0].Text:=' 网络资源类型不匹配 ';
ERROR_BAD_DEVICE: StatusBar1.Panels[0].Text:=' 用户名不正确 ';
ERROR_BAD_NET_NAME:StatusBar1.Panels[0].Text:='ERROR_BAD_NET_NAME';
ERROR_BAD_PROFILE: StatusBar1.Panels[0].Text:='ERROR_BAD_PROFILE';
ERROR_CANNOT_OPEN_PROFILE: StatusBar1.Panels[0].Text:='ERROR_CANNOT_OPEN_PROFILE';
ERROR_DEVICE_ALREADY_REMEMBERED: StatusBar1.Panels[0].Text:='ERROR_DEVICE_ALREADY_REMEMBERED';
ERROR_EXTENDED_ERROR: StatusBar1.Panels[0].Text:='ERROR_EXTENDED_ERROR';
ERROR_INVALID_PASSWORD: StatusBar1.Panels[0].Text:='ERROR_INVALID_PASSWORD';
ERROR_NO_NET_OR_BAD_PATH: StatusBar1.Panels[0].Text:='ERROR_NO_NET_OR_BAD_PATH';
ERROR_NO_NETWORK: StatusBar1.Panels[0].Text:='ERROR_NO_NETWORK';
end;

end;

var ss:integer;
begin
ss:=WNetAddConnection(pchar(LabeledEdit1.Text ),
pchar(LabeledEdit3.Text ),pchar(LabeledEdit2.Text ));// 同上 ,LabeledEdit1.Text 为机器名， LabeledEdit3.Text 为密码， LabeledEdit2.Text 密码

case ss of
NO_ERROR:StatusBar1.Panels[0].Text:=' 已连接 ';
ERROR_ACCESS_DENIED : StatusBar1.Panels[0].Text:='ERROR_ACCESS_DENIED';
ERROR_ALREADY_ASSIGNED: StatusBar1.Panels[0].Text:='ERROR_ALREADY_ASSIGNED';
ERROR_BAD_DEV_TYPE: StatusBar1.Panels[0].Text:=' 网络资源类型不匹配 ';
ERROR_BAD_DEVICE: StatusBar1.Panels[0].Text:=' 用户名不正确 ';
ERROR_BAD_NET_NAME:StatusBar1.Panels[0].Text:='ERROR_BAD_NET_NAME';
ERROR_BAD_PROFILE: StatusBar1.Panels[0].Text:='ERROR_BAD_PROFILE';
ERROR_CANNOT_OPEN_PROFILE: StatusBar1.Panels[0].Text:='ERROR_CANNOT_OPEN_PROFILE';
ERROR_DEVICE_ALREADY_REMEMBERED: StatusBar1.Panels[0].Text:='ERROR_DEVICE_ALREADY_REMEMBERED';
ERROR_EXTENDED_ERROR: StatusBar1.Panels[0].Text:='ERROR_EXTENDED_ERROR';
ERROR_INVALID_PASSWORD: StatusBar1.Panels[0].Text:='ERROR_INVALID_PASSWORD';
ERROR_NO_NET_OR_BAD_PATH: StatusBar1.Panels[0].Text:='ERROR_NO_NET_OR_BAD_PATH';
ERROR_NO_NETWORK: StatusBar1.Panels[0].Text:='ERROR_NO_NETWORK';
end;
end;

来自： chnplzh, 时间： 2003-5-9 7:55 :00, ID ： 1842553

我记得 Delphi 自身就带有这方面的例子，
请看一下 Delphi 安装目录下的 Demos 目录。

来自： heqian, 时间： 2003-5-9 8:25 :00, ID ： 1842609

var
netresource:Tnetresource;
re:dword;
begin
netresource.dwScope:=RESOURCE_[red]GLOBALNET;[/red]
netresource.dwUsage:=RESOURCEUSAGE_CONNECTABLE;
netresource.dwType:=RESOURCETYPE_[gold]DISK;[/gold]
netresource.dwDisplayType:=RESOURCEDISPLAYTYPE_SERVER;
netresource.lpLocalName:='';
netresource.lpRemoteName:=[blue]'//server_name'[/blue];
netresource.lpProvider:=[purple]''[/purple];
re:=WNetAddConnection3(
application.Handle,
netresource,
[blue]'password'[/blue],
[blue]'username'[/blue],
CONNECT_UPDATE_PROFILE
);

再测试一下吧，我在 WINME 和 2000 下都试过，没有问题！！！！！！！！！！！！

来自： 张无忌, 时间： 2003-5-9 8:27 :00, ID ： 1842613

局域网上是可以，用猫在 INTERNET 上是不行的，

来自： sunwill, 时间： 2003-5-9 8:29 :00, ID ： 1842621

来自： xialin2, 时间： 2003-5-9 8:39 :00, ID ： 1842659

不错 , 我试了一下 , 在 WIN2000 下没有问题 , 其它的我没有试 .

来自： 天宇天蓝, 时间： 2003-5-9 10:56:00, ID ： 1843422

自己解决。

var
aa:TNetResource;
retval : longint;
begin
aa.dwScope := RESOURCE_CONNECTED;
aa.dwType := RESOURCETYPE_ANY;
aa.lpLocalName := '';
aa.lpRemoteName :=pchar('//'+LabeledEdit1.text);//compname
aa.lpProvider := Nil;

RetVal := WNetAddConnection2(aa,pchar(LabeledEdit3.Text ),pchar(LabeledEdit2.Text ),CONNECT_PROMPT);
// showmessage(inttostr(retval));//LabeledEdit3.Text 为密码， LabeledEdit2.Text 密码
case RetVal of
NO_ERROR:StatusBar1.Panels[0].Text:=' 已连接 ';
ERROR_ACCESS_DENIED : StatusBar1.Panels[0].Text:='ERROR_ACCESS_DENIED';
ERROR_ALREADY_ASSIGNED: StatusBar1.Panels[0].Text:='ERROR_ALREADY_ASSIGNED';
ERROR_BAD_DEV_TYPE: StatusBar1.Panels[0].Text:=' 网络资源类型不匹配 ';
ERROR_BAD_DEVICE: StatusBar1.Panels[0].Text:=' 用户名不正确 ';
ERROR_BAD_NET_NAME:StatusBar1.Panels[0].Text:='ERROR_BAD_NET_NAME';
ERROR_BAD_PROFILE: StatusBar1.Panels[0].Text:='ERROR_BAD_PROFILE';
ERROR_CANNOT_OPEN_PROFILE: StatusBar1.Panels[0].Text:='ERROR_CANNOT_OPEN_PROFILE';
ERROR_DEVICE_ALREADY_REMEMBERED: StatusBar1.Panels[0].Text:='ERROR_DEVICE_ALREADY_REMEMBERED';
ERROR_EXTENDED_ERROR: StatusBar1.Panels[0].Text:='ERROR_EXTENDED_ERROR';
ERROR_INVALID_PASSWORD: StatusBar1.Panels[0].Text:='ERROR_INVALID_PASSWORD';
ERROR_NO_NET_OR_BAD_PATH: StatusBar1.Panels[0].Text:='ERROR_NO_NET_OR_BAD_PATH';
ERROR_NO_NETWORK: StatusBar1.Panels[0].Text:='ERROR_NO_NETWORK';
end;

end;

var ss:integer;
begin
ss:=WNetAddConnection('//'+pchar(LabeledEdit1.Text ),
pchar(LabeledEdit3.Text ),pchar(LabeledEdit2.Text ));// 同上 ,LabeledEdit1.Text 为机器名， LabeledEdit3.Text 为密码， LabeledEdit2.Text 密码

case ss of
NO_ERROR:StatusBar1.Panels[0].Text:=' 已连接 ';
ERROR_ACCESS_DENIED : StatusBar1.Panels[0].Text:='ERROR_ACCESS_DENIED';
ERROR_ALREADY_ASSIGNED: StatusBar1.Panels[0].Text:='ERROR_ALREADY_ASSIGNED';
ERROR_BAD_DEV_TYPE: StatusBar1.Panels[0].Text:=' 网络资源类型不匹配 ';
ERROR_BAD_DEVICE: StatusBar1.Panels[0].Text:=' 用户名不正确 ';
ERROR_BAD_NET_NAME:StatusBar1.Panels[0].Text:='ERROR_BAD_NET_NAME';
ERROR_BAD_PROFILE: StatusBar1.Panels[0].Text:='ERROR_BAD_PROFILE';
ERROR_CANNOT_OPEN_PROFILE: StatusBar1.Panels[0].Text:='ERROR_CANNOT_OPEN_PROFILE';
ERROR_DEVICE_ALREADY_REMEMBERED: StatusBar1.Panels[0].Text:='ERROR_DEVICE_ALREADY_REMEMBERED';
ERROR_EXTENDED_ERROR: StatusBar1.Panels[0].Text:='ERROR_EXTENDED_ERROR';
ERROR_INVALID_PASSWORD: StatusBar1.Panels[0].Text:='ERROR_INVALID_PASSWORD';
ERROR_NO_NET_OR_BAD_PATH: StatusBar1.Panels[0].Text:='ERROR_NO_NET_OR_BAD_PATH';
ERROR_NO_NETWORK: StatusBar1.Panels[0].Text:='ERROR_NO_NETWORK';
end;
end;

用 Delphi 实现网络驱动器的映射和断开