Delphi-Quellcode:
function regReadBinary(RootKey:Cardinal;OpenKey,ValueName:String;CanCreate:Boolean=False):String;
var
Reg:TRegistry;
s:String;
i:Integer;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=RootKey;
Reg.OpenKey(OpenKey,CanCreate);
i:=Reg.GetDataSize(ValueName);
SetLength(s,i);
Reg.ReadBinaryData(ValueName,s[1],i);
finally
Reg.Free;
end;
Result:=s;
end;
Mit dieser Funktion lese ich den Wert in einen String ein. Nach deiner Erläuterung wird hier der REG_BINARY Wert Byteweise eingelesen, was sicher gut sein kann. Wie ist es aber dann möglich, den Wert in eine Variable Bitweise einzulesen?