Saber si una clave de registro de Windows existe.

[Alejandro Garcia G.]

Hola, hoy requiero de su ayuda, pues he estado tratando de hacerlo con las clases de ejemplo que vienen con el VFP pero no lo he logrado ( o tal vez no lo he entendido bien). Requiero saber si una clave de registro de Windows existe, para de esta manera crearla o tomar un valor que deseo almacenar en ella, pero cada vez ue trato de hacer algo me sale un error.

Buscando encontre algo pero en Visual Basic, lo voy a colocar para ver si alguien lo puede programar a VFP. Agradezco sus comentarios como siempre:

Codigo en VB:
Private Sub DoesKeyExist
    Dim regVersion As Microsoft.Win32.RegistryKey
    regVersion = _
Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\\Microsoft\\TestApp\\1.0", True)
    If regVersion Is Nothing Then
        regVersion = _
Microsoft.Win32.Registry.CurrentUser.CreateSubKey("SOFTWARE\\Microsoft\\TestApp\\1.0")
    End If
End Sub

[ZeRoberto]

 loHandler = CreateObject("WScript.Shell")

Try

   lcResult = loHandler.RegRead("SOFTWARE\\Microsoft\\TestApp\\1.0")

Catch To loError

  lcResult = ""

EndTry

If Empty(lcResult)

   // No Existe

EndIf

--
btnMyVideo.Click()

[César Pistiner]

Hola ZeRoberto!

Consulta, ¿afectan los permisos que tenga el usuario en esa ejecución?

Saludos,

César

[Alejandro Garcia G.]

Ciertamente, no habia pensado en eso, ¿como afectan los permisos el uso de estas rutinas?.

Ze Roberto un millon de gracias por el datos, me sivio y funciono perfectamente.

Saludos.

[ZeRoberto]

César, la verdad que yo no uso los registros de windows y no se si requeriran permisos o no, todas mis app no son instalables corren desde donde les doy doble click xD

--
btnMyVideo.Click()

[César Pistiner]

jaja Okaaaaa!!

Habrá que hacer pruebas entonces! :)

Saludos,

César