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

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

Системные иконки [D6, Win95/98]


Slaviq ©   (2001-11-06 17:55:00) 

Как узнать системную иконку файла, (например если файл текстовый то иконка соответственно как на текстовик...)
Пытаюсь TSHGetFileInfo но чегото не получается, только из экзешников :(. Помогите пожалуйста умной мыслью, буду рад любым предложениям.
Ответы желательно слать на мыло (не успеваю на форуме посмотреть)
Всем отозвавшимя ОГРОМНОЕ СПАСИБО!


Gluka   (2001-11-08 02:22:00) [1]

ExtractIcon;

....
....
var
Ico: HICON;
begin
Ico:=ExtractIcon(HInstance,Filename,0 or 1);
//Возвращает HICON (Хендл иконки), FileName-имя файла

Image1.Picture.Icon.Handle:=Ico;
//Image1-твой Image(component)
....
....
end;


SlaViQ   (2001-11-07 16:23:00) [2]

Я не понимаю что делать дальше, функция возвращает значение ВОРД, а чего с ним дальше делать, мне нужна готовая картинка БМП или ИКО.
Я просто не дружен с ВинАПИ, больше по БД, помоги пожалуйста разобраться.
Зарание благодарен. Славик.


Olgerd   (2001-11-06 19:46:00) [3]

Попробуй ExtractAssociatedIcon


Наверх

Титульная страница Поиск, карта сайта Написать письмо