Программирование Delphi

Многие функции Windows API возвращают значение HICON (дескриптор). Но в отдельных случаях может понадобиться преобразовать HICON в TIcon для работы с ним. Вот как можно преобразовать HICON в TIcon.

Например, при использовании функции ExtractIcon (модуль ShellApi) для получения иконки из файла, мы получаем результат, который имеет значение типа HICON.

Чтобы достичь требуемого результата, мы создадим объект TIcon и назначим дескриптор, полученный из функции ExtractIcon свойству TIcon.Handle. Чтобы Вы хотите получить растровое изображение, создайте TBitmap и нарисуйте иконку на холсте растрового изображения. Убедитесь, что объект TIcon будет освобожден после использования, для чего используйте процедуру Free объекта TIcon.

Не забудьте объявить модуль ShellApi в разделе uses модуля формы.

uses
  { … } ShellApi; { … }
var
   MyIcon:TIcon;
   iconHandle: HICON;
 begin
   MyIcon:=TIcon.Create;
   try
    iconHandle := ExtractIcon(Application.Handle, 'C:\Windows\Explorer.exe',  0) ;
    MyIcon.Handle := iconHandle;
    Image1.Picture.Icon := MyIcon;
   finally
    MyIcon.free;
   end;
 end;