Записать в реестр данные бинарного вида
|
Четыре стадии обнищания программиста:
4. Кормить кошку kitekat-ом.
3. Нет денег на хлеб.
2. Нет денег на женщин.
1. Нет денег на апгрейд.
|
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.WriteBinnaryData('Value', buf, sizeof(buf));
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
{...}
end;
|
|
