在註冊表中的位置列表內容

Question

我想填充窗體上的列表框的內容：HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ Fonts。我能夠讀取「字體」中特定條目的詳細信息並填充文本框，但我的願望是隻顯示列表框中「字體」中的所有內容。任何人都可以協助

Answer 1

您可以使用Registry.LocalMachine及其OpenSubKey() method來打開註冊表項以便讀取。然後，只需調用上GetSubKeyNames()檢索其子鍵的所有名稱：

Using FontKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts") 
    For Each SubKey As String In FontKey.GetSubKeyNames() 
     ListBox1.Items.Add(SubKey) 
    Next 
End Using 

也把這個在你的代碼文件的頂部：

Imports Microsoft.Win32 

---

編輯：

由於上述似乎不適用於您嘗試此方法手動關閉註冊表項：

Dim FontKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts") 
For Each SubKey As String In FontKey.GetSubKeyNames() 
    ListBox1.Items.Add(SubKey) 
Next 
FontKey.Close() 

---

編輯2：

充分利用指定的值名稱值並不難，只需調用FontKey的GetValue() method：中

Dim FontKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts") 
For Each ValueName As String In FontKey.GetValueNames() 
    Dim Value As Object = FontKey.GetValue(ValueName) 'Get the value (data) of the specified value name. 
    If Value IsNot Nothing Then 'Make sure it exists. 
     ListBox1.Items.Add(Value.ToString()) 
    End If 
Next 
FontKey.Close()