Создание записи в реестре типа REG_DWORD

[aesoem]

Здравствуйте, подскажите как создать запись данного типа в DELPHI 7 я уже везде искал!

[mihali4]

Класс TRegistry, метод WriteBinaryData.

З.Ы. Все верно - интеджер. Думал об INTEGER, а написал BINARY

[Alter]

DWORD это целочисленный вид, подобие Integer. Зачем бинарные потоки?
Запись/Чтение так:

uses
   Registry;

 // Чтение REG_DWORD 
procedure TForm1.Button1Click(Sender: TObject);
 var
   Reg: TRegistry;
   RegKey: DWORD;
   Key: string;
 begin
   Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_USERS;
     Key := 'Software\URL';
     if Reg.OpenKeyReadOnly(Key) then
     begin
       if Reg.ValueExists('Days') then
       begin
         RegKey := Reg.ReadInteger('Days');
         Reg.CloseKey;
       end;
     end;
   finally
     Reg.Free
   end;
 end;


 // Запись REG_DWORD 
procedure TForm1.Button2Click(Sender: TObject);
 var
   Reg: TRegistry;
   Key: string;
 begin
   Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_USERS;
     Key := 'Software\URL';
     if Reg.OpenKey(Key, True) then
     begin
       Reg.WriteInteger('Days', 20);
       Reg.CloseKey;
     end;
   finally
     Reg.Free
   end;
 end;

[aesoem]

mihali4,Alter Спасибо, всё получилось!

Я так сделал:

var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.OpenKey('Software\URL, True);
Reg.WriteInteger('Days', 20);
Reg.Free
end;

[Sharp_eye]

а зачем мой пост удалили? я вобще-то ответа ждал.

[Sharp_eye]

"Спасибо" за то что "помогли"
отвечаю на свой вопрос сам:
WtiteInteger - НЕ ВСЕГДА заменяет DWORD ! ! ! (виндовс просто не понимает некоторые ключи, например

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\  создайте WriteInteger(NoSmHelp)

и ничего это не даст.) поэтому нужно использовать WriteBinaryData;

Value_1 : byte = 01  (1)
Value_0 : byte = 00  (0)
WriteBinaryData('NoSmHelp',Value1,1);