Windows XP で API メソッド WNetAddConnection2 を使用してネットワーク ドライブ (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 でドライブを問題なくマウントできます。
誰かアイデアはありますか?
前もって感謝します