客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
var
NetSource: TNetResource;
Error: LongInt;
a: Cardinal;
begin
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := 'Z:';
lpRemoteName := '\\192.168.2.4\arc';
lpProvider := '';
end;
// case WNetAddConnection3(Handle, NetSource, '','', CONNECT_UPDATE_PROFILE) of
//WNetAddConnection3 带有密码输入框 WNetAddConnection2 没有
case WNetAddConnection3(Handle, NetSource, '', '', CONNECT_UPDATE_PROFILE or CONNECT_INTERACTIVE) of
NO_ERROR: ShowMessage('成功') ;
ERROR_ACCESS_DENIED: showmessage('访问被拒绝');
ERROR_ALREADY_ASSIGNED:ShowMessage('设备参数中指定的lpLocalName已经连接。');
ERROR_BAD_DEV_TYPE:ShowMessage('设备类型和资源类型不匹配。');
ERROR_BAD_DEVICE:ShowMessage('在lpLocalName指定的值是无效的');
ERROR_BAD_NET_NAME: ShowMessage('中指定的值lpRemoteName参数无效或无法找到。');
ERROR_BAD_PROFILE :ShowMessage('用户配置文件的格式不正确') ;
ERROR_CANNOT_OPEN_PROFILE :ShowMessage('统无法打开用户配置文件来处理持久连接。');
ERROR_DEVICE_ALREADY_REMEMBERED: ShowMessage('一个条目中指定的设备lpLocalName已经在用户概要。') ;
ERROR_EXTENDED_ERROR:ShowMessage('一个特定于网络错误发生。为了描述的错误,使用WNetGetLastError函数。');
ERROR_INVALID_PASSWORD:ShowMessage('指定的密码是无效的。');
ERROR_NO_NET_OR_BAD_PATH:ShowMessage('操作无法进行,因为不是一个网络组件没有启动或指定的名称不能用。');
ERROR_NO_NETWORK:ShowMessage('网络不存在.');
ERROR_SESSION_CREDENTIAL_CONFLICT: //这里为第二次输入冲突 但是共享文件夹已经可以访问无需密码了，所以这里 不提示
else
ShowMessage('其他意外終止!');
end;
以上，也可以用客户端和服务端 之间通讯传输文件，就不用考虑这么多了
function MapNetworkDrive(const handle : THandle; const uncPath : string) : string;
//returns mapped drive ("z:") on success
//or uncPath on failure / cancel
var
cds : TConnectDlgStruct;
netResource : TNetResource;
begin
result := uncPath;
ZeroMemory(@netResource, SizeOf(TNetResource)) ;
netResource.dwType := RESOURCETYPE_DISK;
netResource.lpRemoteName := PChar(uncPath) ;
cds.cbStructure := SizeOf(TConnectDlgStruct) ;
cds.hwndOwner := handle;
cds.lpConnRes := @netResource;
cds.dwFlags := CONNDLG_PERSIST;
if WNetConnectionDialog1(cds) = NO_ERROR then
begin
result := Chr(-1 + Ord('A') + cds.dwDevNum) + DriveDelim;
end;
end;
使用：MapNetworkDrive(Handle, '') |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论