Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works

Random project

FileThumbnail

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

View on GitHub

Anyone may press Interesting, signed in or not. It helps others find this project.

Member rating

No ratings yet.

Sign in to rate this project.

README

FileThumbnail

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

Sample:

Example_FileThumbnail

Additional component:

Additional unit:

Example:

pascal
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;