Считать значение REG_DWORD из реестра

uses

   Registry;

 // Read REG_DWORD 
procedure
 TForm1.Button1Click(Sender: TObject);
 var

   Reg: TRegistry;
   RegKey: DWORD;
   Key: string
;
 begin

   Reg := TRegistry.Create;
   try

     Reg.RootKey := HKEY_USERS;
     Key := '.DEFAULTSoftwareMicrosoftWindowsCurrentVersionInternet SettingsURL History';
     if
 Reg.OpenKeyReadOnly(Key) then

     begin

       if
 Reg.ValueExists('DaysToKeep') then

       begin

         RegKey := Reg.ReadInteger('DaysToKeep');
         Reg.CloseKey;
         ShowMessage(IntToStr(RegKey));
       end
;
     end
;
   finally

     Reg.Free
   end
;
 end
;


 // Write REG_DWORD 
procedure
 TForm1.Button2Click(Sender: TObject);
 var

   Reg: TRegistry;
   Key: string
;
 begin

   Reg := TRegistry.Create;
   try

     Reg.RootKey := HKEY_USERS;
     Key := '.DEFAULTSoftwareMicrosoftWindowsCurrentVersionInternet SettingsURL History';
     if
 Reg.OpenKey(Key, True) then

     begin

       Reg.WriteInteger('DaysToKeep', 20);
       Reg.CloseKey;
     end
;
   finally

     Reg.Free
   end
;
 end
;

Другое по теме:

• Добавить ссылку на мой файл в меню Пуск|Документы
• Добавление программы в автозапуск
• Браузер по реестру