Código: Seleccionar todo
Private Sub Command1_Click()
Dim oWSH As Object
Dim clave As String
Set oWSH = CreateObject("Wscript.Shell")
clave = "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MiPrograma"
oWSH.RegDelete clave
Set oWSH = Nothing
End SubCódigo: Seleccionar todo
Const HKEY_CURRENT_USER = &H80000001
Const STANDARD_RIGHTS_ALL = &H1F0000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const SYNCHRONIZE = &H100000
Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Sub Command1_Click()
Dim Result As Long
RegOpenKeyEx HKEY_CURRENT_USER,"Software\VB and VBA Program Settings\MiPrograma", 0, KEY_ALL_ACCESS, Result
If Result = 0 Then
MsgBox ("La clave no Existe")
Else
RegDeleteKey Result, ""
RegOpenKeyEx HKEY_CURRENT_USER,"Software\VB and VBA Program Settings\MiPrograma", 0, KEY_ALL_ACCESS, Result
If Result = 0 Then
MsgBox ("la Clave Fue Borrada Correctamente")
RegCloseKey Result
End If
