Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];

Вниз

Иконка файла   Найти похожие ветки 

← →
Lex.   (2003-01-30 22:09) [0]

Как из приложения на Delphi достать иконку файла(любого) ?

---

← →
Shluz   (2003-01-30 22:21) [1]

есть специальная функция loadicon...там посмотри по хелпу

---

← →
Спрашивающий   (2003-01-31 02:31) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
IconIndex : word;
begin
IconIndex := SpinEdit1.Value;
Image1.Picture.Icon.Handle := ExtractAssociatedIcon(HInstance,
Pchar(Edit1.Text),IconIndex);
end;

Pchar(Edit1.Text)-путь к файлу
SpinEdit1.Value-индекс иконки(как правило 1, но не обязательно)

---

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

Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];

Наверх

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