function GetFileIcon(const Filename:String; SmallIcon:Boolean):HICON; var info:TSHFILEINFO; Flag: Integer; begin if SmallIcon then Flag:=(SHGFI_SMALLICON or SHGFI_ICON) else Flag:=(SHGFI_LARGEICON or SHGFI_ICON); SHGetFileInfo(Pchar(Filename),0,info,Sizeof(info),Flag); Result:=info.hIcon; end;
var info:TSHFILEINFO;
Flag: Integer;
begin
if SmallIcon then Flag:=(SHGFI_SMALLICON or SHGFI_ICON)
else Flag:=(SHGFI_LARGEICON or SHGFI_ICON);
SHGetFileInfo(Pchar(Filename),0,info,Sizeof(info),Flag);
Result:=info.hIcon;
end;