Jelajahi Sumber

Bug fix: Folders in a root drive of a local folder showed incorrect type name sometimes

(cherry picked from commit 0629c18c98d71915a37b91e4bb897639f4831b22)

Source commit: c25c9ce6498a5784458221fe1424d70eed715978
Martin Prikryl 5 tahun lalu
induk
melakukan
54fe47b809
1 mengubah file dengan 5 tambahan dan 5 penghapusan
  1. 5 5
      source/packages/filemng/DirView.pas

+ 5 - 5
source/packages/filemng/DirView.pas

@@ -1912,11 +1912,11 @@ begin
       begin
         try
           if IsDirectory then
-            SHGetFileInfo(PChar(FPath), FILE_ATTRIBUTE_DIRECTORY, FileInfo, SizeOf(FileInfo),
-            SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES)
-            else
-          SHGetFileInfo(PChar(FPath + '\' + FileName), FILE_ATTRIBUTE_NORMAL, FileInfo, SizeOf(FileInfo),
-            SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES);
+            SHGetFileInfo(PChar(FPath + '\' + FileName), FILE_ATTRIBUTE_DIRECTORY, FileInfo, SizeOf(FileInfo),
+              SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES)
+          else
+            SHGetFileInfo(PChar(FPath + '\' + FileName), FILE_ATTRIBUTE_NORMAL, FileInfo, SizeOf(FileInfo),
+              SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES);
           TypeName := FileInfo.szTypeName;
         except
           {Capture exceptions generated by the shell}