|
|
@@ -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}
|