レジストリの操作をマスターしよう (キーの作成)

さてこれからレジストリのキーを作成してみましょう。
レジストリのキーを作成するときにはRegCreateKeyEx()関数を使用します。
下のプログラムでは「HKEY_CURRENT_USER\Software\WinAPI\ReistryTest」というキーを作成するものです。
サンプルを実行したらレジストリエディタで実際にキーが作成されたことを確認してください。
なお、RegCreateKeyEx()関数はキーが、すでにオープンしているときにはそのキーをオープンします。

Dim rc As Long, sError As String
Dim lngResult As Long, lngDisposition As Long
Dim udtSECURITY_ATTRIBUTES As SECURITY_ATTRIBUTES

'レジストリにキーを作成する
rc = RegCreateKeyEx(HKEY_CURRENT_USER, "Software\WinAPI\ReistryTest", 0&, vbNullString, _
    REG_OPTION_NON_VOLATILE, KEY_CREATE_SUB_KEY, udtSECURITY_ATTRIBUTES, lngResult, lngDisposition)

If rc = ERROR_SUCCESS Then
    If lngDisposition = REG_CREATED_NEW_KEY Then
        MsgBox "HKEY_CURRENT_USER\Software\WinAPI\ReistryTestにキーを作成しました"
    Else
        MsgBox "HKEY_CURRENT_USER\Software\WinAPI\ReistryTestのキーをオープンしました"
    End If
Else
    'エラーコードからエラーメッセージを取得
    sError = String(260, vbNullChar)
    Call FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, rc, 0, sError, Len(sError), 0)
    MsgBox sError
End If




(上）キーの作成に成功した場合

(上）2回目に実行した場合

(上）パラメータが間違っていたときのエラーメッセージ

(上）作成されたキー