RegRead, value, % regKey, Order
   if (value = "")
      Return "no info"

key := "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Favorites"

arr := ReadOrder(key)
Run, notepad,,, PID
WinWait, ahk_pid %PID%
ControlSetText, Edit1, % RegExReplace(AhkToJSON(arr, "    "), "\R", "`r`n")

ReadOrder(regKey) {
   arr := []
   RegRead, value, % regKey, Order
   if (value = "")
      Return "no info"
   
   size := CryptStringToBinary(value, data, "CRYPT_STRING_HEX")
   numOfRecords := NumGet(data, 16, "UInt")
   offset := 20
   order := 0
   Loop % numOfRecords {
      lengthOfRecord := NumGet(data, offset, "UInt")
      val := NumGet(data, offset + 4, "Int")
      order := val = -5 ? order + 1 : val + 1
      flags := NumGet(data, offset + 10, "UShort")
      isFolder := flags & 1
      isUrl := (flags >> 1) & 1
      isShortInUnicode := (flags >> 2) & 1
      
      shortLen := 0
      while NumGet(&data + offset + 22 + ((A_Index - 1) << isShortInUnicode), isShortInUnicode ? "UShort" : "UChar")
         shortLen += 1 << isShortInUnicode
      
      padding := 0
      while !NumGet(&data + offset + 22 + shortLen + A_Index - 1, "UChar")
         padding++
      
      name := StrGet(&data + offset + 22 + shortLen + padding + 42, "UTF-16")
      
      arr[order] := {name: name, isFolder: isFolder, isUrl: isUrl}
      if isFolder
         arr[order].subKeys := %A_ThisFunc%(regKey . "\" . name)
      offset += lengthOfRecord
   }
   Return arr
}

CryptStringToBinary(string, ByRef outData, formatName := "CRYPT_STRING_BASE64")
{
   static formats := { CRYPT_STRING_BASE64: 0x1
                     , CRYPT_STRING_HEX:    0x4 }
   fmt := formats[formatName]
   chars := StrLen(string)
   if !DllCall("Crypt32\CryptStringToBinary", "Str", string, "UInt", chars, "UInt", fmt
                                            , "Ptr", 0, "UIntP", bytes, "Ptr", 0, "Ptr", 0)
      throw "CryptStringToBinary failed. LastError: " . A_LastError
   VarSetCapacity(outData, bytes)
   DllCall("Crypt32\CryptStringToBinary", "Str", string, "UInt", chars, "UInt", fmt
                                        , "Str", outData, "UIntP", bytes, "Ptr", 0, "Ptr", 0)
   Return bytes
}

AhkToJSON(obj, indent := "") {
   static Doc, JS
   if !Doc {
      Doc := ComObjCreate("htmlfile")
      Doc.write("<meta http-equiv=""X-UA-Compatible"" content=""IE=9"">")
      JS := Doc.parentWindow
      ( Doc.documentMode < 9 && JS.execScript() )
   }
   if indent|1 {
      if IsObject( obj ) {
         isArray := true
         for key in obj {
            if IsObject(key)
               throw Exception("Invalid key")
            if !( key = A_Index || isArray := false )
               break
         }
         for k, v in obj
            str .= ( A_Index = 1 ? "" : "," ) . ( isArray ? "" : %A_ThisFunc%(k, true) . ":" ) . %A_ThisFunc%(v, true)

         Return isArray ? "[" str "]" : "{" str "}"
      }
      else if !(obj*1 = "" || RegExMatch(obj, "^-?0(?!$)|\s"))
         Return obj
      
      for k, v in [["\", "\\"], [A_Tab, "\t"], ["""", "\"""], ["/", "\/"], ["`n", "\n"], ["`r", "\r"], [Chr(12), "\f"], [Chr(8), "\b"]]
         obj := StrReplace( obj, v[1], v[2] )

      Return """" obj """"
   }
   sObj := %A_ThisFunc%(obj, true)
   Return JS.eval("JSON.stringify(" . sObj . ",'','" . indent . "')")
}