我在使用 API 方法 WNetAddConnection2 在 Windows XP 下映射网络驱动器 (WebDAV) 时遇到问题。在 Windows 7 下或者它就像一个魅力。我的代码:
function ConnectDrive(Drive: string; Folder: string;
Username: string; Password: string; RestoreAtLogon: Boolean): HRESULT;
var
NetResource: TNetResource;
dwFlags: DWORD;
begin
with NetResource do
begin
dwType := RESOURCETYPE_DISK;
lpLocalName := PChar(Drive);
lpRemoteName := PChar(Folder);
lpProvider := nil;
end;
if (RestoreAtLogon) then
dwFlags := CONNECT_UPDATE_PROFILE
else
dwFlags := 0;
Result := WNetAddConnection2(NetResource, PChar(Password),
PChar(Username), dwFlags);
end;
每次我尝试连接时,Windows 都会告诉我:“找不到网络名称”或“找不到网络路径”
正如我之前所说,在 Windows 7 下没有问题。
如果我使用像 Netdrive 这样的商业工具,这个程序在 XP、Vista 或 Windows 7 下安装驱动器没有问题。
有人有想法吗?
提前致谢