Найти расширения всех регистрированных исполняемых файлов

[caa2000]

Здравстствуйте всем.
Обгуглил весь и-нет, искал в форуме.
Как в windowse можно найти список(расположение) расширений всех регистрированных на данный момент приложений (желательно для current user),чтобы вставить их в CommonDialog.Filter ?
Т.е. позволить открыть в Dialog-е "открываемые" файлы, к примеру *.pdf;*.bmp*;*.exe;*.xls;*.txt и т.д. (если такое приложение установлено), исключая *.dll;*.sys;*.ini;*.cfg; и т.д.
Может есть такая функция в VB ?
Спасибо.

[Qwertiy]

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

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts

[caa2000]

Спасибо !
А для отслеживания изменений (если установлено новое приложение) вот с этим надо "играться" ?

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

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Function getstring(Hkey As Long, strPath As String, strValue As String)

Dim keyhand As Long
Dim datatype As Long
Dim lResult As Long
Dim strBuf As String
Dim lDataBufSize As Long
Dim intZeroPos As Integer
r = RegOpenKey(Hkey, strPath, keyhand)
lResult = RegQueryValueEx(keyhand, strValue, 0&, lValueType, ByVal 0&, lDataBufSize)
If lValueType = REG_SZ Then
    strBuf = String(lDataBufSize, " ")
    lResult = RegQueryValueEx(keyhand, strValue, 0&, 0&, ByVal strBuf, lDataBufSize)
    If lResult = ERROR_SUCCESS Then
        intZeroPos = InStr(strBuf, Chr$(0))
        If intZeroPos > 0 Then
            getstring = Left$(strBuf, intZeroPos - 1)
        Else
            getstring = strBuf
        End If
    End If
End If
RegCloseKey keyhand
End Function


Ну,в смысле не играться

[Qwertiy]

Что-то мне лень с этим кодом разбираться... Работает или нет?
Хотел высказать недовольство про неюникодные функции, но топом вспомнил, что это VB6.
И с нулевым байтом что-то подозрительное делается.

[caa2000]

Код нашёл в Registry.bas ещё сам не разбирался.

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

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long


Эту функцию юзать ?
Боюсь в registry напортачить.

[Qwertiy]

Возмножно. Я не особо в курсе, как работать с реестром на winapi. Во-первых, не так уж часто с ним приходится иметь дело, а во-вторых, в .NET'е для этого есть встроенные средства.

[iGrok]

ещё сам не разбирался

Вот лучше поразбирайся. Там не только эту, ещё несколько соседних надо.