(vl-registry-read "HKEY_CURRENT_USER\\ODMIH") > nil
(vl-registry-read "HKEY_CURRENT_USER\\ODMIH\\") > nil
(vl-registry-descendents "HKEY_CURRENT_USER\\ODMIH") > nil
(vl-registry-descendents "HKEY_CURRENT_USER\\ODMIH\\") > nil
(vl-registry-read "HKEY_CURRENT_USER\\" "ODMIH") > nil
(vl-registry-read "HKEY_CURRENT_USER" "ODMIH") > nil
(vl-registry-descendents "HKEY_CURRENT_USER" "ODMIH") > nil
(vl-registry-descendents "HKEY_CURRENT_USER\\" "ODMIH") > nil
while i need : '("a" "aaa" "b" "EEE")