#include "common.ch"
#include "dll.ch"
#include "regclass.ch"
#include "set.ch"


Function GetProductId(cKey, cValue)
Local oReg

//cKey   := iif(valtype(cKey)   == "C", cKey  , "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion" )
cKey   := iif(valtype(cKey)   == "C", cKey  , "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" )
cValue := iif(valtype(cValue) == "C", cValue, "ProductId" )

oReg := XbpReg():new(cKey )
oReg:ReadBinType := "C"

if empty(cValue)
   return blank(oReg:Standard)
endif
return blank(oReg:GetValue(cValue))



Function ReadValue(cKey, cValue)
   LOCAL oReg := XbpReg():NEW( cKey )
   oReg:ReadBinType := "C"
   if empty(cValue)
      return blank(oReg:Standard)
   endif
return blank(oReg:GetValue(cValue))