レジストリの操作について。 (ID:76379)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

okuさんレスありがとうございます。
何回かソース見直しましたが、問題なさそうでした。
定数の部分は省きますが、ソースは以下の感じになります。

Private Function set_key() As String
    Dim Ret As Long
    Dim nHandle As Long
    Dim nLeng As Long
    Dim atai As String
    Dim SA As SECURITY_ATTRIBUTES
    Dim Disposition As Long
 
    Const Rootkey = HKEY_LOCAL_MACHINE
    Const SubKey = "Software\\abcd\\efg"

atai = "abccc"
    nLeng = Len(atai)

call RegCreateKeyEx(Rootkey, SubKey, 0, "", REG_OPTION_NON_VOLATILE, KEY_CREATE_SUB_KEY, SA, nHandle ,Disposition)

Call RegCloseKey(nHandle)

If Disposition = REG_OPENED_EXISTING_KEY Then
        set_key = "同じキーが存在するので作成できませんでした"
        Exit Function
    End If

Ret = RegOpenKeyEx(Rootkey, SubKey, 0, 1, nHandle)

Ret = RegSetValueEx(nHandle, "abcdef",0, REG_SZ, atai, nLeng)

Call RegCloseKey(nHandle)

If Ret = ERROR_SUCCESS Then
        set_key = "正常に設定しました"
    Else
        set_key = "正常に設定できませんでした"
    End If
end function

やはり、RegSetValueExのコール部のretに5が代入されてうまく出来ませんでした。。。
ソースのおかしなところがあればご教授お願いします。

←解決時は質問者本人がここをチェックしてください。

戻る