サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2009/12/26 19:02
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[レジストリ][システム関係][] *
* キーワード：レジストリ,サブキー,レジストリキー *
***********************************************************************************
タイトル ： レジストリ
記事No ： 12417
投稿日 ： 2008/06/03(Tue) 11:25
投稿者 ： VB
subkey = "SYSTEM\CurrentControlSet\Control\Print\Printers"
↑Printers直下の全てのサブキー内にある
(Printers直下のサブキーは、統一性はないです。)
ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE, subkey, 0, KEY_READ, hKeyResult)
Value = "test"
↑このtestファイルの中身をすべて取得したい。
-----------------------------------------------------------------------------------
記事No ： 12418
投稿日 ： 2008/06/03(Tue) 12:54
回答者 ： 魔界の仮面弁士
-----------------------------------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim subKey As String
subKey = "SYSTEM\CurrentControlSet\Control\Print\Printers"
Dim keyName As String
keyName = "Port"
With GetObject("winmgmts:\root\default:StdRegProv")
Const HKEY_LOCAL_MACHINE As Long = &H80000002
Dim keyList() As Variant, varKey As Variant, varValue As Variant
.EnumKey HKEY_LOCAL_MACHINE, subKey, keyList
For Each varKey In keyList
If .GetStringValue(HKEY_LOCAL_MACHINE, _
subKey & "\" & varKey, keyName, varValue) = 0 Then
Debug.Print "HKLM\" & subKey & "\" & varKey & "\" & keyName
Debug.Print , varValue
End If
Next
End With
End Sub
 |
