注册表写入二进制数据
原文: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;