Ein String als Binärwert in die Registry schreiben???

[SirThornberry]

Delphi-Quellcode:

var LReg: TRegistry;
begin
  LReg := TRegistry.Create;
  LReg.RootKey := HKEY_CURRENT_USER;
  if LReg.OpenKey('Software\YourCompany\YourProduct', True) then
  begin
    LReg.WriteBinaryData('RegValName', YourString[1], Length(YourString));
    LReg.CloseKey;
  end;
  LReg.Free;