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: Don't show virtual folders

Browse source
This commit is contained in:
Alexander Koblov 2024-09-22 13:59:09 +03:00
commit 483bbef8db
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/filesources/shellfolder/ushelllistoperation.pas
View file

@ -29,7 +29,7 @@ type
implementation
uses
ActiveX, Variants, DCOSUtils, DCDateTimeUtils, ShellAPI,
ActiveX, Variants, DCOSUtils, DCDateTimeUtils, ShellAPI, DCStrUtils,
uFile, uShellFolder, uShlObjAdditional, uShowMsg, uShellFileSourceUtil;
{ TShellListOperation }
@ -115,6 +115,7 @@ const
SFGAOF_DEFAULT = SFGAO_FILESYSTEM or SFGAO_FOLDER;
var
AFile: TFile;
LinkTo: String;
PIDL: PItemIDList;
rgfInOut: LongWord;
AValue: OleVariant;
@ -135,11 +136,16 @@ begin
try
CheckOperationState;
LinkTo:= GetDisplayName(AFolder, PIDL, SHGDN_INFOLDER or SHGDN_FORPARSING);
// Skip virtual folders
if StrBegins(LinkTo, '::{') then Continue;
aFile:= TShellFileSource.CreateFile(Path);
AFile.LinkProperty.LinkTo:= LinkTo;
AFile.Name:= GetDisplayNameEx(AFolder, PIDL, SHGDN_INFOLDER);
TFileShellProperty(AFile.LinkProperty).Item:= ILCombine(DrivesPIDL, PIDL);
AFile.LinkProperty.LinkTo:= GetDisplayName(AFolder, PIDL, SHGDN_INFOLDER or SHGDN_FORPARSING);
rgfInOut:= SFGAOF_DEFAULT;
AFile.Attributes:= FILE_ATTRIBUTE_DEVICE or FILE_ATTRIBUTE_VIRTUAL;