FAQ - Как считать иконку из EXE файла (или определить системную иконку для зарегистрированного типа файла)

Как считать иконку из EXE файла (или определить системную иконку для зарегистрированного типа файла)

Для считывания иконки применяется следующий код

procedure TForm1.Button1Click(Sender: TObject);
var
IconIndex : word;
begin
  IconIndex := SpinEdit1.Value;
  Image1.Picture.Icon.Handle := ExtractAssociatedIcon(HInstance,
                                Pchar(Edit1.Text),IconIndex);
end;

Комментарии - для этого примера на форм проекта необходимо положить Image1, SpinEdit1 и Edit1. Значение Edit1 задает имя файла, для которого необходимо определить иконку (допустимы маски). Image1 является получателем иконки, IconIndex задает индекс (если иконок несколько), отсчет индекса идет с 0. Файл должен существовать, иначе возвращается иконка для неопределенного типа файла.