Как извлечь иконку из файлов ICO

function

ExtractIcon(Inst: THandle; FileName: PChar; IconIndex: Word): HIcon;

где:
Inst - указатель на приложение вызвавшее функцию, FileName - имя файла из которого необходимо получить иконку, IconIndex - номер необходимой иконки.

Если функция возвращает значение не равное нулю, то в файле есть следующая иконка.

В данном примере в компонент Image1 выводится иконка запущенного файла.

uses

ShellAPI;
procedure

TForm1.FormCreate(Sender: TObject); var

A: array [0..78] of char; begin

{Получение имени запущенного файла} StrPCopy(A, ParamStr(0)); {Вывод на экран нулевой иконки из файла} Image1.Picture.Icon.Handle := ExtractIcon(HInstance, A, 0); end

;

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

• Создание ICO из BMP
• Анимированная иконка приложения
• Загрузка иконки