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

[romber]

Hallo!

Ich möchte einen String binär (REG_BINARY) in Registry schreiben. Wie mache ich das?

Danke!

[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;

[romber]

Danke sehr!