|
分類:[VB6 以前]
お世話様になります。
風夏と申します。
レジストリの削除について教えて下さい。
下記環境でレジストリに作成したキーを削除したいのですが、
削除が出来ません。
OS：WindowsServer2008R2
言語：VB5 SP3
下記のように処理を書きました。
間違い等、ご指摘頂ければと思います。
宜しくお願い申し上げます。
-------------------------------------------------------------------------------------
' 指定されたレジストリ値を削除する。
Declare Function RegDeleteKey Lib "ADVAPI32.dll" Alias "RegDeleteValueA" _
(ByVal hKey As Long, _
ByVal lpValueName As String) As Long
Public Enum hKeyConstants
HKEY_CLASSES_ROOT = &H80000000
HKEY_CURRENT_USER = &H80000001
HKEY_LOCAL_MACHINE = &H80000002
HKEY_USERS = &H80000003
HKEY_PERFORMANCE_DATA = &H80000004
HKEY_CURRENT_CONFIG = &H80000005
HKEY_DYN_DATA = &H80000006
End Enum
-------------------------------------------------------------------------------------
Private Sub Command1_Click(Index As Integer)
Dim Ret As Boolean
Dim Subkey As String
If Index = 0 Then
'キーを設定する。
Subkey = "SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters"
'値を設定する
Ret = RegSetValue(hKeyConstants.HKEY_LOCAL_MACHINE, Subkey, "SMB2", REG_DWORD, 0)
Else
'キーを設定する。
Subkey = "SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters\SMB2"
'削除する。
Ret = RegDeleteKey(hKeyConstants.HKEY_LOCAL_MACHINE, Subkey)
End If
End Sub
-------------------------------------------------------------------------------------
|
