Получить иконки, назначеные типам файлов

[Zenitchik]

Коряво название написал... Но, полагаю, меня поняли.

Суть задачи: я хочу написать функцию, которая принимает один аргумент (расширение файла As строка) и возвращает IPictureDisp (не все ли равно в каком еще "родном" типе?) = иконку.
Размер иконки - вопрос отдельный.

Короче, в вопросах работы с реестром - я ламер полный. В вопросах работы с изображениями - уже почти скоро буду не ламером.

Суть вопроса:
1. Дайте ссылку, где почитать про работу с реестром?
2. Расскажите, на какие ключи вообще стиот обратить внимание для решения этой задачи?
3. Как выковырить иконку, оттуда где она может оказаться сныкана (exe, dll и иже с ними)?

[lister]

Код: Выделить всё

Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" ( _
    ByVal hInst As Long, _
    ByVal lpIconPath As String, _
    ByRef lpiIcon As Long) As Long


Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" ( _
   ByVal pszPath As String, _
   ByVal dwFileAttributes As Long, _
   ByRef psfi As SHFILEINFO, _
   ByVal cbFileInfo As Long, _
   ByVal uFlags As Long) As Long

и зачем тут реестр?

[Alexanbar]

Это всё хорошо при условии, что размер иконок не превышает 32х32.

А через реестр можно узнать так:

1 й этап: HKEY_CLASSES_ROOT\.txt - значение по умолчанию, в данном слчае, txtfile

2 й этап: HKEY_CLASSES_ROOT\txtfile\DefaultIcon - в данном случае, %SystemRoot%\system32\shell32.dll,-152

[lister]

Это всё хорошо при условии, что размер иконок не превышает 32х32.

Это мы все уже обсуждали...
Кстати, как решилась проблема?

[Alexanbar]

Извлечение больших (и маленьких тоже) иконок. Предварительно задаётся путь к файлу Path_F с иконками и номер иконки IconNUmber:

Код: Выделить всё


.....

hInst = LoadLibraryEx(Path_F, _
                    0, LOAD_LIBRARY_AS_DATAFILE)
               
         
                If IconNUmber >= 0 Then
                    resName$ = FindResName(hInst, IconNUmber)
                Else
                    resName$ = "#" & Abs(IconNUmber)
                End If
                               
                iFlag = LR_DEFAULTCOLOR
               
                hIcon = LoadImage(hInst, resName, IMAGE_ICON, r, r, iFlag)
               
               
                FreeLibrary hInst

.......

Public Function FindResName(hInst As Long, _
    ByVal ResNumber As Long) As String
resName = ""
ResCounter = 0

Ret = EnumResourceNames(hInst, "#" & RT_GROUP_ICON, _
    AddressOf ResNamesCallBack, ResNumber)

FindResName = resName

End Function

Public Function ResNamesCallBack(ByVal hMod As Long, _
    ByVal ResType As Long, ByVal ResId As Long, _
    ByVal lParam As Long) As Long

ResCounter = ResCounter + 1

If (ResId And &HFFFF0000) <> 0 Then
   If ResCounter = lParam + 1 Then
        resName = StrFromPtrA(ResId)
       
   End If
Else
   If ResCounter = lParam + 1 Then
        resName = "#" & CStr(ResId)
   End If
End If

ResNamesCallBack = Not (ResCounter >= lParam + 1) 'True

   
End Function


[Zenitchik]

Спасибо. Поискал по именам функций - много нового узнал.