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

关注

原创最新推荐文章于 2026-05-17 06:57:19 发布 8.7k 阅读 AI 写同款· GEO 优化 ›

Delphi实现内网到内网的直接连接本程序为一个真正点对点通讯示范程序：）实现内网到内网的直接连接（QQ用的技术）使用Delphi实现。在网上未看到类似的程序，特此发布提供喜欢的朋友参考。通过UDP来实现穿透NAT的点对点通讯。 >>原定程序设置一个共享目录里边所有文件都可供别人多点下载（类似BT）独立服务端负责消息中转、用户登陆客户端从服务端获取用户列表然后直连各个用户以实现聊天语音视屏文件传输等可能的一切服务 >>>结果由于工作太忙，文件传输、语音视频等服务一直没去实现。希望有朋友在此基础上完善后能发布了给大家学习：）立即下载

基本原理

---- 在 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 实现网络驱动器的映射和断开

收录于