Иконки зарегистрированных типов

← →
Neo Trinitron © (2006-01-30 16:34) [0]

Стоит задача получить иконки зарегистрированных типов файлов. Эта тема была, но её удалили, так что в поиск не отправляйте пожалуйста - я оттуда.

← →
begin...end © (2006-01-30 16:44) [1]

ExtractAssociatedIcon ?

← →
Neo Trinitron © (2006-01-30 17:41) [2]

Дело обстоит иначе: Есть имена файлов (не реальные файлы, только их имена и расширения). Необходимо отобразить каждое имя файла с иконкой соответствующего типа.

← →
Gero © (2006-01-30 22:27) [3]

Открываешь

HKEY_CLASSES_ROOT\.расширение

Читаешь параметр по умолчанию.

Затем открываешь HKEY_CLASSES_ROOT\этот_парамерт\DefaultIcon

Читаешь уже этот параметр по умолчанию. Это и будет путь к иконке для нужного расширения. Естественно, любого раздела из перечисленных может не оказаться.

← →
kami © (2006-01-30 22:52) [4]

Не помню, кто мне подсказал (ветка не сохранилась), но еще раз ему большое спасибо (:

const Flag = SHGFI_ADDOVERLAYS or SHGFI_ICON or SHGFI_LARGEICON or SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_TYPENAME;// убрать самому, если тип файла не нужен var fi: _SHFILEINFOA; //====================================== CoInitialize(nil); SystemImageList.ShareImages:=True; SystemLargeImageList.Handle := SHGetFileInfo( PChar(""), 0, fi, SizeOf(TSHFileInfo), Flag); // в нужном месте: SHGetFileInfo(PChar(FileExtWithDot), FILE_ATTRIBUTE_NORMAL, // если нужна иконка папки, добавить or FILE_ATTRIBUTE_DIRECTORY fi, SizeOf(TSHFileInfo), Flag); l.imageIndex := fi.iIcon; // l:TListItem

//Не забыть по окончании вызвать CoUninitialize

← →
kami © (2006-01-30 22:54) [5]

kami © (30.01.06 22:52) [4]
большое спасибо (:

Дико извиняюсь :), должно быть "большое спасибо :"

← →
Neo Trinitron © (2006-01-31 10:59) [6]

Огромное спасибо откликнувшимся. Только пришёл на работу, буду разбираться.

← →
Johnmen © (2006-01-31 11:10) [7]

Можно в инете найти готовый компонент TSysImageList, с исходниками.
Разобраться в нём несложно. Или использовать не разбираясь глубоко...:)

Дико извиняюсь, а какой модуль юзать?

ну и эти объявления я не стал искать (хотя, есть и в OLE2) :

function CoInitialize(lpReserved:Pointer):HResult;stdcall; external "ole32.dll"; procedure CoUninitialize;stdcall;external "ole32.dll";

Иконки зарегистрированных типов Найти похожие ветки