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

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

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com