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

← →
KvORubin © (2002-04-24 13:30) [0]

Как в Image1 отобразить иконку файла ???
по такому то адресу: C:\WINDOWS\Рабочий стол\123.rar

(в Image1 нужно отбразить иконку данного файла)

← →
Song © (2002-04-24 13:39) [1]

IconIndex:=1; // Формат переменной Word DrawIcon(Image1.BitMap.Canvas.Handle,10,10,ExtraxtAssociatedIcon(Handle,PChar(FileName),IconIndex));

← →
KvORubin © (2002-04-24 14:48) [2]

А можно привести работающий пример ???
Немогу сообразить, что да как. :(

procedure TForm1.Button1Click(Sender: TObject);
Var IconIndex:Word;
begin
IconIndex:=1;
DrawIcon(Image1.Canvas.Handle,10,10,ExtractAssociatedIcon(Hinstance,PChar(Application.ExeName),IconIndex));
end;

Как в Image1 отобразить иконку файла ??? Найти похожие ветки