2002-07-13 14:42

' by: "danilo_yoingco" <danilo_yoingco@yahoo.co.uk>
' Fri, 12 Jul 2002 18:14:56 -0000

' [rapidq] Re: QRegistry and DeleteKey

     $OPTIMIZE ON
     $APPTYPE GUI
     $TYPECHECK ON
     $ESCAPECHARS ON

     CONST HKEY_LOCAL_MACHINE=&H80000002

     DIM Registry AS QREGISTRY, rtn AS LONG

     Registry.RootKey = HKEY_LOCAL_MACHINE

     IF Registry.CreateKey("Software\\Language\\Spanish") THEN
      Registry.OpenKey("Software\\Language\\Spanish", 0)

' PEEK/POKE VALUES and/or KEYS here.

      Registry.CloseKey
     END IF

' Put some more code here. and when you are ready to delete
' the key do the below.....

     Registry.DeleteKey("Software\\Language\\Spanish")

2002-07-13 14:42