problema con regdelete

[bautistasbr]

Ola amigos,tengo problemas con el regdelete.Mi codigo es este

RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion \Run\ley", "C:\WINDOWS\system32\ley.exe"

no se porque,pero da error.

Algun consejo?

[Robokop]

Código [Seleccionar] Expandir


    Set variable = CreateObject("WScript.Shell")
variable.RegDelete "HKEY_LOCAL_MACHINE\Software\Blabla\blalblabla\"

No te funciona porque en primera necesitas un objeto para poderlo utilizar y en segunda porque hay un espacio entre currentversion y el "\"

saludos

[bautistasbr]

sigue sin funcionarme,e correjido lo del espacio y sigue =

[SheKeL_C$]

Kizas t da error xq esa clave no existe..primero compruebala, yo utilizo este modulo t pongo aqui el enlace, dentro ay un ejemplo

http://www.elguille.info/vb/utilidades/ExeEnCurrentVersionRun.htm

[Robokop]

como que no te funciona ....
si haces un copy&paste del codigo solamente cambias los valores de las claves te tiene que funcionar.

Aqui hay otro metodo con apis

Código [Seleccionar] Expandir

Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

If OSRegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE", hKey) =
ERROR_SUCCESS Then
If OSRegDeleteKey(hKey, "MiClave") = ERROR_SUCCESS then
             MsgBox "Clave borrada"
End If
End If