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

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

М.б. я неясно выразился... короче, у расширения ZIP (к примеру) иконка есть, когда какой-нить архиватор установлен, и - соотв-но - в HKEY_CLASSES_ROOT в соотв. месте есть запись 'DefaultIcon '. А вот если расширению не сопоставлено никакого файла - то и иконка будет 'особая'.

Это я погорячился, что 'сабж - это несложно'. Вот вам ситуация - и по сути мой другой вопрос:

Для определения иконки, сопоставленной типу (расширению) файла, пользуюсь вот таким кодом:
[CODE]
Option Explicit

Private Type PICTDESC
cbSize As Long
pictType As Long
hIcon As Long
hPal As Long
End Type

Private Declare Function OleCreatePictureIndirect Lib 'olepro32.dll' _
(lpPictDesc As PICTDESC, riid As Any, ByVal fOwn As Long, _
ipic As IPicture) As Long
Private Declare Function RegCloseKey Lib 'advapi32.dll' (ByVal hKey As Long) As Long
Private Declare Function RegEnumKey Lib 'advapi32.dll' Alias 'RegEnumKeyA' (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
Private Declare Function RegOpenKey Lib 'advapi32.dll' Alias 'RegOpenKeyA' (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib 'advapi32.dll' Alias 'RegQueryValueExA' (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function ExtractIcon Lib 'shell32.dll' Alias 'ExtractIconA' (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long

Private Const HKEY_CLASSES_ROOT = &H80000000

Private Sub Command1_Click()
Set Picture1.Picture = GetFileTypeIcon(Text1.Text)
End Sub

Function GetFileTypeIcon(ByVal fileExtension As String) As StdPicture
Dim lRegKey As Long
Dim sName As String
Dim sOld As String
Dim sFileAndIndex As String
Dim sFile As String
Dim iIndex As Integer
Dim lIcon As Long

Set GetFileTypeIcon = Nothing
If Left$(fileExtension, 1) <> '.' Then fileExtension = '.' & fileExtension

If RegOpenKey(HKEY_CLASSES_ROOT, ByVal fileExtension, lRegKey) = 0 Then

sName = Space$(255)
Call RegQueryValueEx(lRegKey, ByVal '', 0&, 1, ByVal sName, 255)
If InStr(sName, Chr$(0)) Then sName = Left$(sName, InStr(sName, Chr$(0)) - 1)
Log sName

Call RegCloseKey(lRegKey)

If Len(Trim$(sName)) > 0 Then
If RegOpenKey(HKEY_CLASSES_ROOT, sName & 'DefaultIcon ', lRegKey) = 0 Then
sFileAndIndex = Space$(255)
Call RegQueryValueEx(lRegKey, ByVal '', 0&, 1, ByVal sFileAndIndex, 255)
If InStr(sFileAndIndex, Chr$(0)) Then sFileAndIndex = Left$(sFileAndIndex, InStr(sFileAndIndex, Chr$(0)) - 1)
Call RegCloseKey(lRegKey)
Log sFileAndIndex
sFile = Left$(sFileAndIndex, InStr(sFileAndIndex, ',') - 1)
iIndex = Val(Mid$(sFileAndIndex, InStr(sFileAndIndex, ',') + 1))
lIcon = ExtractIcon(App.hInstance, sFile, iIndex)
Set GetFileTypeIcon = IconToPicture(lIcon)
End If
End If

End If
End Function

Private Function IconToPicture(ByVal hIcon As Long) As Picture
Dim pic As PICTDESC
Dim guid(0 To 3) As Long

pic.cbSize = Len(pic)
pic.pictType = vbPicTypeIcon
pic.hIcon = hIcon
' IPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
guid(0) = &H7BF80980
guid(1) = &H101ABF32
guid(2) = &HAA00BB8B
guid(3) = &HAB0C3000
OleCreatePictureIndirect pic, guid(0), True, IconToPicture<

Ну, это кажется немного 'извращенский' способ определения связанной иконы... Чем тебе SHGetFileInfo не угодил, а?

Да, теперь и я ей пользуюсь ) Просто эта функция требует в качестве аргумента имя РЕАЛЬНОГО файла - а мне-то надо определять иконку, связанную не с ФАЙЛОМ, а просто с РАСШИРЕНИЕМ. Однако, в другом форуме меня надоумили: если тебе нужно определить иконку для файлов с расширеним 'BMP' (к примеру), то создай пустой временный файл с расширением 'BMP' и скорми его функции SHGetFileInfo (а потом - просто удали файл к чёртовой матери). В общем, я удивляюсь, как сам до этого не допетрил ) Сейчас всё получилось. И этот способ, конечно, гораздо проще способа с анализом реестра...

И всё-таки - возвращусь тогда к первоначальному вопросу: где хранится 'безликая' иконка для файлов с незарегистрированным типом?

в system image list'e, наверное... ) ну, а физически - в библиотеке shell32