Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
ВнизКак в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c