Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
ВнизЗагрузить иконку зарегистрированного расширения в ImageList Найти похожие ветки
← →
Gennady (2002-01-16 10:28) [4]uses ....., commctrl;
****************
*************
procedure Test(FileName: string; IL: TImageList; Index: word);
var ico: HICON;
begin
ico:=ExtractAssociatedIcon(HInstance,Pchar(FileName), index);
if ico<>0 then
ImageList_AddIcon(IL.Handle, ico);
end;
2 Serghei
это у Вас функция доступа к системному ImageList-у
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c