[delphi] rejestr, read i write binarnie

0

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;



0

Kichu to ja Misiek 15 Mam prosbe :) jakbys mogl to napisz mi caly program bo nie wiem co sie w nim dzieje i nie wiem co jest zmienna :) PROSZE CIE O POMOC !

0

szefie,takich rzeczy to się nie robi.ja tu od wieków próbuje dostać odpowiedź/wskazówkę na to pytanie, a Ty mi tu jeszcze prywatne dyskusje będziesz wprowadzał... echh [sciana]

1 użytkowników online, w tym zalogowanych: 0, gości: 1