关于注册表的读取

var
   registryTemp :TRegistry ;
   StringsTemp  :TStringList ;
begin
     registryTemp := TRegistry.create ;
     StringsTemp := TStringList.create ;
     with RegistryTemp do
     begin
          RootKey := HKEY_CURRENT_USERS ;
          if OpenKey('Software\Microsoft' ,False) then
             GetKeyNames(stringsTemp) ;
     end ;
end ;
//stringsTemp字符串列表即为该分支的所有子键