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




Вниз

Извлечение иконок 


DenKop   (2002-03-24 15:14) [0]

Делаю так:
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 15:33) [1]

Готового нет. А какие проблемы с решением в реестре?



DenKop   (2002-03-24 18:26) [2]

В принципе проблем нет, но самая главная моя проблема это моя лень!!!



Song   (2002-03-24 21:32) [3]

2DenKop © (24.03.02 18:26)
Вы конечно меня извините и - ничего личного, но здесь не терпят ленивых людей. Здесь Вам могут посоветовать и более, если захотят, но с такими утверждениями Вам придётся написать вручную самим.




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




Наверх





Память: 0.72 MB
Время: 0.016 c
1-9535            snoup                 2002-03-23 20:15  2002.04.04  
Как в определенное время запустить exe-файл (например в 10:37) написав его название


1-9557            olookin               2002-03-24 15:21  2002.04.04  
TChart иногда ведет себя странно


3-9382            kserg@ukr.net         2002-03-11 10:28  2002.04.04  
Вопрос по Модулю Данных:


14-9596           valievrf              2002-02-20 17:25  2002.04.04  
СРОЧНО!!! ДЕЛО ИСКЛЮЧЕНИЯ И НЕ ИСКЛЮЧЕНИЯ!!!!


3-9390            Beer                  2002-03-12 14:41  2002.04.04  
Дерево из записей