mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0002158] Sync dir on network drive cause popup messages

Browse source
This commit is contained in:
Alexander Koblov 2018-10-27 18:35:34 +00:00
commit aee6958e22
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/filesources/winnet/uwinnetlistoperation.pas
View file

@ -30,7 +30,7 @@ implementation
uses
LazUTF8, uFile, Windows, JwaWinNetWk, JwaLmCons, JwaLmShare, JwaLmApiBuf,
DCStrUtils, uShowMsg, DCOSUtils, uOSUtils, uNetworkThread;
StrUtils, DCStrUtils, uShowMsg, DCOSUtils, uOSUtils, uNetworkThread;
function TWinNetListOperation.Connect: Boolean;
var
@ -43,7 +43,13 @@ begin
else begin
AbortMethod:= @CheckOperationState;
end;
ServerPath:= UTF8Decode(ExcludeTrailingPathDelimiter(Path));
if FWinNetFileSource.IsNetworkPath(Path) then
ServerPath:= UTF8Decode(ExcludeTrailingPathDelimiter(Path))
else begin
dwResult:= NPos(PathDelim, Path, 4);
if dwResult = 0 then dwResult:= MaxInt;
ServerPath:= UTF8Decode(Copy(Path, 1, dwResult - 1));
end;
dwResult:= TNetworkThread.Connect(nil, PWideChar(ServerPath), RESOURCETYPE_ANY, AbortMethod);
if dwResult <> NO_ERROR then
begin