Извлечь основную иконку EXE-файла

Советы » ICO » Извлечь основную иконку EXE-файла

procedure

TForm1.Button1Click(Sender: TObject); var

Icon: TIcon; FileInfo: SHFILEINFO; begin

Icon := TIcon.Create; try

// Get the Icon SHGetFileInfo(PChar('Filename.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON); icon.Handle := FileInfo.hIcon; DestroyIcon(FileInfo.hIcon); // Save the Icon to a file: icon.SaveToFile('IconFromExe.ico'); // Set the Icon as Application Icon (temporary) Application.Icon := icon; finally

Icon.Free; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com