Реестр

[Volkogriz]

Доброе время суток!
помогите пожалуйста!
Подскажите как прописать этот ключ в реестр программно

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion]
"DigitalProductId"=hex:a4,00,00,00,03,00,00,00,36,39,38,33,31,2d,36,34,30,2d,\
31,37,38,30,35,37,37,2d,34,35,33,38,39,00,5a,00,00,00,41,32,32,2d,30,30,30,\
30,31,00,00,00,00,00,00,00,00,0d,04,89,b2,15,1b,c4,ee,62,4f,e6,64,6f,01,00,\
00,00,00,00,27,ed,85,43,a2,20,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,31,34,35,30,34,00,00,00,00,00,00,00,ce,0e,\
00,00,12,42,15,a0,00,08,00,00,87,01,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,94,a2,b3,ac

Зарание блогодарен!
С уважаеием Volkogriz!

[N!ckeL]

uses ........Registry.......

var
 reg:treginifile;
begin
 reg:=treginifile.create('software');
 reg.rootkey:=hkey_local_machine;
 reg.openkey('SOFTWARE\Microsoft\Windows NT\CurrentVersion', true);
 reg.WriteFloat('DigitalProductId', 'a4,00,00,00,03,00,00,00,36,39,38,33,31,2d,36,34,30,2d,\
31,37,38,30,35,37,37,2d,34,35,33,38,39,00,5a,00,00,00,41,32,32,2d,30,30,30,\
30,31,00,00,00,00,00,00,00,00,0d,04,89,b2,15,1b,c4,ee,62,4f,e6,64,6f,01,00,\
00,00,00,00,27,ed,85,43,a2,20,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,31,34,35,30,34,00,00,00,00,00,00,00,ce,0e,\
00,00,12,42,15,a0,00,08,00,00,87,01,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,94,a2,b3,ac');
reg.free; 
end;

[Volkogriz]

Спасибо огромное!

[Alter]

Вот так(тип Byte в массивах неменять!):

procedure TForm1.Button1Click(Sender: TObject);
Const XXX = 5;
      RecL :Array[1..XXX] of Byte = ($a4, $00, $00, $00, $03 {и т.д.});
var
  Reg: TRegistry;
  buf : array [1..XXX] of Byte;
  i: Integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion', True) then
    begin
      for i:=1 to XXX do
      buf[i]:= RecL[I]{Берём отсюда ваши значения};

      Reg.WriteBinaryData('DigitalProductId', buf, sizeof(buf));
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

[N!ckeL]

Reg.WriteBinaryData

- binary от слова бинарный, то есть двоичный код (вида: 10010111100), а у топикстартера

......"DigitalProductId"=hex:a4,00,00,00,03,00,00

Hex значит 16 ричный код, он использует символы 0123456789ABCDEF. но если вы так уверены, спорить не буду...

[Alter]

попробуте то что я написал, на какйто ветке реестра, и увидите что там будет то, что он просил .