5,913
社区成员




function getShellInfo(const Filename: string; const SmallIcon: Boolean = false):
TSHFILEINFO;
var
Flags: Integer;
begin
Flags := SHGFI_DISPLAYNAME or SHGFI_TYPENAME or SHGFI_ICON or
SHGFI_ATTRIBUTES;
if SmallIcon then
Flags := Flags or SHGFI_SMALLICON
else
Flags := Flags or SHGFI_LARGEICON;
FillChar(Result, SizeOf(TSHFILEINFO), 0);
SHGetFileInfo(Pchar(Filename), 0, Result, Sizeof(Result), Flags);
end;