注册表写入二进制数据

注册表写入二进制数据

原文:http://bbs.csdn.net/topics/390237976

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  varStr, bVar: AnsiString;
  varLen, i: Integer;
begin
  varStr := '1A2B3F4D';
  varLen := Length(varStr);
  i := 1;
  while i < varLen do
  begin
    bVar := bVar + Char(StrToIntDef('$' + varStr[i] + varStr[i + 1], 0));
    inc(i, 2);
  end;

  with TRegistry.Create do
    try
      RootKey := HKEY_CURRENT_USER;
      OpenKey('\Software', True);
      try
        WriteBinaryData('test', (@bVar[1])^, varLen div 2);
      except
        CloseKey;
      end;
    finally
      Free;
    end;
end;