function RegGetValueNames(const RootKey: Integer; const SubKeyName: String; var Names: TArrayOfString): Boolean;
Открывает указанный ключ реестра и считывает имена значений в заданный строковый массив Names. В случае успеха функция возвращает значение True, иначе — False.
var Names: TArrayOfString; S: String; begin if RegGetValueNames(HKEY_CURRENT_USER, 'Control Panel\Mouse', Names) then begin S := StringJoin(#13#10, Names); MsgBox('Список значений:'#13#10#13#10 + S, mbInformation, MB_OK); end else begin // добавьте сюда код для обработки ошибки end; end;