witam
proszę o wskazówkę , mam już kod który odczytuje wartość binarną z rejestru do dynamicznej tablicy typu byte; modyfikuję tę wartość w 2 miejscach i zapisuje do rejestru,ale cała struktura wartości ulega zmianie.trzeba to skonwetrować na HEX ? jeśli tak to w jaki sposób. oto kod
const
Key : String = '\SYSTEM\ControlSet001\Control\Session Manager\Power\';
Val : String = 'AcPolicy';
var
Data : Array of byte;
sz : Word;
I : Word;
r:tregistry;
begin
R := TRegistry.Create;
with R do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(Key, False);
if GetDataType(Val) = rdBinary
then
begin
sz := GetDataSize(Val);
if sz > 0 then
begin
SetLength(Data, sz);
ReadBinaryData(Val, Data[0], sz);
data[192]:=0;
data[193]:=0;
WriteBinaryData(Val, data, sz); // jak ma wyglądać poprawny zapis
End;
end;
Free;
end;