Const KEY_READ:Int=$20019
Const KEY_WOW64_64KEY:Int=$0100

Function reg_enumkeys64:String(RegKey:Int,SubKey:String)
      Local temp_result:Int
      Local temp_index:Int = 0
      Local temp_cstring:Byte Ptr
      Local temp_cstringsize:Int = 255
      Local temp_path:String

      If _RegOpenKeyEx(RegKey,SubKey,0,KEY_READ|KEY_WOW64_64KEY,Varptr(temp_result)) = 0
         temp_cstring = MemAlloc(temp_cstringsize)
         While _RegEnumKeyEx(temp_result,temp_index,temp_cstring,Varptr(temp_cstringsize),Null,Null,Null,Null) = 0
            temp_path = SubKey
            If temp_path.length temp_path :+ "\"
            temp_path :+ String.FromCString(temp_cstring)
            'on temp_path there are the 64 bit entries
            temp_index :+ 1;
            temp_cstringsize = 255
         Wend

         _RegCloseKey(temp_result)

         MemFree(temp_cstring)
      End If
EndFunction