| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Извлечение иконок [D5, Win95/98]
DenKop © (2002-03-24 15:14:00)Делаю так:
procedure TForm1.AddIconToList(FLN:String);
var
Icon:Ticon;
PName:array[0..255] of char;
begin
Icon:=TIcon.Create;
StrPCopy(PName,FlN);
Icon.Handle:=ExtractIcon(hInstance,PName,0);
If Icon.Handle<=1 then
begin
ShowMessage("Handle not found");
Exit;
end;
ImageList1.AddIcon(Icon);
Icon.Free;
end;
Получаю иконку EXE, DLL, ICO, но хотелось бы получать иконки и с других типов файлов.
P.S. Вариант получения иконки через путь в реестре не очень то хочется переписывать, может есть что то готовое из средств Delphi.
Song (2002-03-24 21:32:00) [1]2DenKop © (24.03.02 18:26)
Вы конечно меня извините и - ничего личного, но здесь не терпят ленивых людей. Здесь Вам могут посоветовать и более, если захотят, но с такими утверждениями Вам придётся написать вручную самим.
DenKop (2002-03-24 18:26:00) [2]В принципе проблем нет, но самая главная моя проблема это моя лень!!!
Song (2002-03-24 15:33:00) [3]Готового нет. А какие проблемы с решением в реестре?
| |
