Форум: "Основная";
Текущий архив: 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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.063 c