| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Иконка файла [D6, WinXP]

Lex. ©   (2003-01-30 22:09:00) 

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

---

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

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, но не обязательно)

---

Shluz   (2003-01-30 22:21:00) [2]

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

---

Наверх