delphi - バイナリデータをレジストリに書き込む方法は?

Question

Win7 RegEdit では、1A 2B 3C 4D のようにバイナリを編集または表示するようになりました。

str := '1A,2B,3C,4D';

str を Registry に書き込む方法、および Win7 RegEdit では 1A 2B 3C 4D を表示する方法

Answer 1

var
  Data: array of Byte; // or whatever binary container you want to use
  Reg: TRegistry;
begin
  ...
  SetLength(Data, 4);
  Data[0] := $1A;
  Data[1] := $2B;
  Data[2] := $3C;
  Data[3] := $4D; 

  Reg := TRegistry.Create(KEY_SET_VALUE);
  try
    Reg.RootKey := ...;
    if Reg.OpenKey('...', True) then
    begin
      Reg.WriteBinaryData('Value', Data[0], 4);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
  ...
end;

Answer 2

使用できますTRegistry.WriteBinaryData。$1A,$2B,$3C,$4D文字列データの代わりにバイナリを書きたい場合は'1A,2B,3C,4D'、に変更してみてください#$1A#$2B#$3C#$4D。

str := #$1A#$2B#$3C#$4D;

WriteBinaryDataレジストリの書き込みに使用します。

Reg.WriteBinaryData('KeyName', str, Length(str) * SizeOf(Byte));