Запись иконок из ехе файлов в imagelist с последующим присвоением картинки компоненту image.

[xaero93]

Зарание извиняюсь за такое длинное название темы, но по другому придумать не смог.

Собственно у меня такая проблема. Есть форма, на ней кучка компонентов tImage, Есть строковый массив. в каждой его ячейки содержится путь к ехе файлу. Необходимо из каждого файла вытащить значек, и присвоить его компоненту tImage.(image1.picture:=.....)

Может кто ни будь подсказать возможное решение. Зарание благодарен
п.с. Забыл сказать, каждой иконке соответствует свой компонент tImage.

[xaero93]

Немного изменю задачу.

Во вложениях есть изображение, поясняющее задание.

Что я делал:

Я написал процедуру, во время исполнения которой в строковй массив забиваются пути к программам. Далее я для каждого tImage отдельно прописывал вот это:

image1.Picture.Icon.Handle:=ExtractIcon(hInstance,buff[0],0);

где buff[0] - ячейка строкового массива.

и так 15 раз.

Что я хочу узнать у вас:

Как ограничить количество компонентов tImage, не зная количества заполненных ячеек массива. То есть если у меня 9 путей к программам в массиве а компонентов tImage 15, то в лишние 6 компонентов ничего не загрузится и вылетит ошибка. Как этого избежать.

[MaxNik2009]

получить иконку из Exe:

var
Ic:HIcon; // handle иконки
s:string; //путь к екзешнику
begin
  s:='%Твой путь%\Project2.exe';

   Ic:=ExtractIcon(0,PWideChar(s),0); // если у тебя Delphi 7 то вместо PWideChar напиши PChar
   Image1.Picture.Icon.Handle:=Ic;

дальше догадаешься?