Skip to content

Get file thumbnail, file icon or system file associated icon.

License

Notifications You must be signed in to change notification settings

ps147258/FileThumbnail

Repository files navigation

FileThumbnail

Get file thumbnail, file icon or system file associated icon.

Sample:

Example_FileThumbnail

Additional component:

Additional unit:

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;