Текущий архив: 2002.05.09;
Скачать: CL | DM;

Вниз

Как в 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]

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

---

← →
Song ©   (2002-04-24 15:10) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c