Сообщество Чайников

Вопрос

Можно ли на объект (и на какой) положить иконку, взятую из ехе-файла? Подобно тому, как это делает ярлык к файлу.

Ответ

А в чем проблема? Можно ее (иконку) отрисовать хоть на форме (точнее — на любом объекте с canvas'ом).
Следующий код рисует 5-ую иконку из файла moricons.dll (в Win9x валяется в папке windows).

procedure TForm1.Button1Click(Sender: TObject);
var iHwnd : LongInt;
begin
img.picture:=nil;
iHwnd:=extracticon(Form1.Handle, 'moricons.dll', 5);
if ihwnd=0 then
application.messagebox('Error','Иконка не обнаруженна',MB_ICONINFORMATION);
drawicon(Image1.Canvas.Handle ,0,0,ihwnd);
Image1.Refresh ;
Image1.repaint;
destroyicon(ihwnd);
end;

Олег