Get file thumbnail, file icon or system file associated icon.
Sample:
Additional component:
- JEDI: https://github.com/project-jedi
- TJvFilenameEdit
Additional unit:
- Vcl.DragFiles: https://github.com/ps147258/others_vcl/blob/master/Vcl.DragFiles.pas
- TDropFiles
Example:
uses FileThumbnail;
procedure GetFileThumb;
var
Thumb: TFileThumb;
Icon: TIcon;
begin
if GetShellIcon(Icon, JvFilenameEdit1.FileName, _IconBest.TypicallyPixels) then
try
Image1.Picture.Assign(Icon);
finally
Icon.Free;
end
else
Image1.Picture.Assign(nil);
end;