| Вопрос: Вопрос по работе с реестром!!! | Добавлено: 21.09.06 11:14 |
Автор вопроса:  ua213
|
| Подскажите пожалуйста как получить из реестра список папок(каталогов) из конкретного каталога? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 21.09.06 14:11 |
Public Function RegGetKeys(hKey As RootKey, strSubKey As String, strRetArray() As String, Optional Range As Long) As Long
 im hChildKey As Long, lngSubKeys As Long, lngMaxKeySize As Long, lngDataRetBytes As Long, i As Integer
If Len(strSubKey) Then If RegOpenKeyEx(hKey, strSubKey, 0, KEY_ALL_ACCESS, hChildKey) <> ERROR_SUCCESS Then Range = -1: Erase strRetArray: Exit Function Else hChildKey = hKey End If If QueryRegInfoKey(hChildKey, lngSubKeys, lngMaxKeySize) <> ERROR_SUCCESS Or lngSubKeys = 0 Then If Len(strSubKey) Then RegCloseKey hChildKey Range = -1 Erase strRetArray Exit Function End If lngSubKeys = lngSubKeys - 1 ReDim strRetArray(lngSubKeys) As String For i = 0 To lngSubKeys lngDataRetBytes = lngMaxKeySize strRetArray(i) = Space(lngMaxKeySize) RegEnumKeyEx hChildKey, i, strRetArray(i), lngDataRetBytes, 0&, vbNullString, ByVal 0&, ByVal 0& strRetArray(i) = Left(strRetArray(i), lngDataRetBytes) Next i If Len(strSubKey) Then RegCloseKey hChildKey Range = lngSubKeys RegGetKeys = lngSubKeys End Function api сам |
||
|
Номер ответа: 2 Автор ответа:  ua213 Вопросов: 1 Ответов: 1 |
Профиль | | #2 | Добавлено: 25.09.06 10:18 |
| СПАСИБО! | ||
Страница: 1 |