Category: Graphic
Title: Read the main icon of a EXE-File
Date added: 15.03.2006
Hits: 1661


procedure TForm1.Button1Click(Sender: TObject);
var
  Icon: TIcon;
  FileInfo: SHFILEINFO;
begin
  Icon := TIcon.Create;
  try
    SHGetFileInfo(PChar('File.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON);
    icon.Handle := FileInfo.hIcon;
    DestroyIcon(FileInfo.hIcon);
    icon.SaveToFile('Icon.ico');
    Application.Icon := icon;
  finally
    Icon.Free;
  end;
end;

1. How to convert a Bitmap to a JPEG and save it? (2433 Hits)

2. How to invert a 32 bit Bitmap? (1777 Hits)

3. How to determine if there is a bitmap in a Timage? (1290 Hits)

4. How to copy part of one image to another? (3006 Hits)

5. How to determine if two icons are equal? (1215 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.