mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Slow navigation at network path

Browse source
This commit is contained in:
Alexander Koblov 2012-12-05 05:09:25 +00:00
commit 691dcb8ffc
1 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

23
components/doublecmd/dcosutils.pas
View file

@ -1099,19 +1099,22 @@ end;
function mbSetCurrentDir(const NewDir: UTF8String): Boolean;
{$IFDEF MSWINDOWS}
var
wNewDir: WideString;
wsNewDir: WideString;
NetResource: TNetResourceW;
begin
// Function WNetAddConnection2W works very slow
// when the final character is a backslash ('\')
wsNewDir:= UTF8Decode(ExcludeTrailingPathDelimiter(NewDir));
if Pos('\\', wsNewDir) = 1 then
begin
FillChar(NetResource, SizeOf(NetResource), #0);
NetResource.dwType:= RESOURCETYPE_ANY;
NetResource.lpRemoteName:= PWideChar(wsNewDir);
WNetAddConnection2W(NetResource, nil, nil, CONNECT_INTERACTIVE);
end;
// MSDN says that the final character must be a backslash ('\').
wNewDir:= UTF8Decode(IncludeTrailingBackslash(NewDir));
if Pos('\\', wNewDir) = 1 then
begin
FillChar(NetResource, SizeOf(NetResource), #0);
NetResource.dwType:= RESOURCETYPE_ANY;
NetResource.lpRemoteName:= PWideChar(wNewDir);
WNetAddConnection2W(NetResource, nil, nil, CONNECT_INTERACTIVE);
end;
Result:= SetCurrentDirectoryW(PWideChar(wNewDir));
wsNewDir:= wsNewDir + DirectorySeparator;
Result:= SetCurrentDirectoryW(PWideChar(wsNewDir));
end;
{$ELSE}
begin