Записать в реестр данные бинарного вида
Материал из 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