[VB6][WMI] Реестр - Как получить перечень подразделов

Тема в разделе "Банк полезных кодов", создана пользователем Dragokas, 3 авг 2014.

  1. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.498
    Симпатии:
    4.313
    Код (vb.net):
    Option Explicit

    Const HKEY_LOCAL_MACHINE = &H80000002
    Const HKEY_CURRENT_USER = &H80000001

    Public oReg As Object

    Private Sub Form_Load()
        Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
        test2
    End Sub

    Sub test2()
        Dim sKeys()
        Dim sKey        As String
        Dim lret        As Long

        sKey = "" ' имя подраздела

        lret = oReg.EnumKey(HKEY_CURRENT_USER, sKey, sKeys)
       
        Stop
    End Sub
    По достижении оператора Stop мы получаем в переменной sKeys
    массив строк - имена подразделов главного раздела HKCU.

    subkeys.png
     
    Kиpилл, Alex1983 и orderman нравится это.

Поделиться этой страницей