Как отобразить иконку ехе файла???

[gufon]

Как отобразить иконку ехе файла в компоненте image если я знаю путь к файлу???

[RebOOter]

Сослаться не на exe, а на ico, если таковой имеется.

[gufon]

а другие варианты есть?????

[volod3000]

Вот так :

var
FileName : String;
begin
  Image1.Picture.Icon.Handle:=ExtractIcon(HInstance,PChar(FileName),0);
end;

[gufon]

Memo2.Lines.LoadFromFile('system/bd.txt');
for i:=0  to memo2.Lines.Count-1 do
icon:= Timage.Create(Self);
icon.Left:= 50; icon.Top:= 50;
iconindex:= 1;
icon.Picture.Icon.Handle:=ExtractassociatedIcon(HInstance,PChar(memo2.lines[0]),iconindex);
DrawIcon(Canvas.Handle,10,10,iconadd);

не работает, не знаю компонента нет или иконка не добавилась

[volod3000]

я делал так :

var
dk: HBrush;

PatBlt(Image1.Canvas.Handle, 0, 0, Form1.ClientWidth, Form1.ClientHeight, WHITENESS);  // очистить Canvas
   Image1.Canvas.Brush.Color:= RGB(83,112,168);  // Задать цвет Canvas
   dk := Image1.Canvas.Brush.Handle;   // Дискрептор Canvas
   DrawIconEx(
    Image1.Canvas.Handle,
    0,              // Left
    0,              // Top
    ExtractIcon(HInstance,PChar(p[i]),s[i]),
    65,             // Width
    65,             // Height
    1,
    dk,             // Дискрептор кисти
    DI_NORMAL);
   Image2.Repaint;

Попробуйте для начала живые адреса поставить , а не с массива.
Код работает на 100%.

[Sparkman]

uses shellapi,windows,dialogs;
var
  IconIndex: word;
  h: hIcon;
begin
     if OpenDialog1.Execute then
     begin
          IconIndex := 0;
          h := ExtractAssociatedIcon(hInstance,PChar(OpenDialog1.FileName), IconINdex);
          DrawIcon(Form1.Canvas.Handle , 100, 100, h);
     end;

[gufon]

проблема с добавленеем компонента, я написал вот так

icon:= Timage.Create(Self);
icon.Left:= 50; icon.Top:= 50;
icon.Picture.LoadFromFile('system\img\btn.jpg');

и нечего

[gufon]

проблема с добавленеем компонента, я написал вот так

icon:= Timage.Create(Self);
icon.Left:= 50; icon.Top:= 50;
icon.Picture.LoadFromFile('system\img\btn.jpg');

и нечего
с этим я озабрался, подскажите как програмно создать событие для картинки???