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

ADD: support iCloudDriver to correctly get file at root

Browse source
This commit is contained in:
rich2014 2024-12-24 00:12:45 +08:00
commit de6fa6ce31
1 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/filesources/mounted/umountedlistoperation.pas
View file

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils,
uFileSourceListOperation,
uFileSource, uMountedFileSource, uFileSystemFileSource,
uFileSource, uMountedFileSource, uFileSystemListOperation,
uDCUtils, DCStrUtils;
type
@ -47,6 +47,19 @@ var
logicPath: String;
realPath: String;
function getFilesByFileSystemListOperation: TFiles;
var
listOperation: TFileSourceListOperation;
begin
listOperation:= TFileSystemListOperation.Create( mountedFS, realPath );
try
listOperation.Execute;
Result:= listOperation.ReleaseFiles;
finally
FreeAndNil( listOperation );
end;
end;
procedure addMountedPaths;
var
mountPoint: TMountPoint;
@ -61,7 +74,7 @@ var
if logicPath <> mountPointParentPath then
continue;
mountedTFile:= TFileSystemFileSource.CreateFileFromFile( mountedPath );
mountedTFile:= mountedFS.CreateFileFromFile( mountedPath );
mountPointName:= mountedFS.getDefaultPointForPath( mountedPath );
if NOT mountPointName.IsEmpty then
mountedTFile.Name:= mountPointName;
@ -70,11 +83,8 @@ var
end;
procedure addRegularFiles;
var
realFS: IFileSource;
begin
realFS:= TFileSystemFileSource.Create;
FFiles.List.AddList( realFS.GetFiles(realPath).List );
FFiles.List.AddList( getFilesByFileSystemListOperation.List );
end;
begin