Четыре стадии обнищания программиста:
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) thenbeginfor 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;
Статья Записать в реестр данные бинарного вида раздела ОС и Железо Реестр может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.