Записать в реестр данные бинарного вида

Материал из DRKB

Записать в реестр данные бинарного вида[править | править код]

var
  Reg: TRegistry;
  buf: array [0..4] of byte;
  i: Integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software', True) then
    begin
      for i := 1 to 4 do
        buf[i] := 0;
      buf[0] := 1;
      Reg.WriteBinaryData('Value', buf, SizeOf(buf));
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;
  {...}
end;


Source: http://delphiworld.narod.ru/
ID: 02283