Показать сообщение отдельно
  #1  
Старый 17.06.2008, 00:33
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание Опять Реестр....

Как проверять найденый ключь являеться ли DWORD-ом?

Код:
Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_CURRENT_USER;
     Key := '\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Explorer\Advanced';
     if Reg.OpenKeyReadOnly(Key) then
     begin
       if Reg.ValueExists('Hidden') then //проверяем Hidden
       begin
         RegKey := Reg.ReadInteger('Hidden');
         Reg.CloseKey;
         edit1.Text :=IntToStr(RegKey);
       end;
     end;
   finally
     Reg.Free
   end;

Проблема в том что если тип ключа Hidden не окажеться DWORD-ом а простым строковым параметром то прога даст ощибку - как проверить тип ключа???
Ответить с цитированием