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

Советы » ICO » Как извлечь иконку из файлов 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

;

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

Категории

Статьи

Советы

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