如何在读取注册表中的dataBinary数据?

Question

如何在读取注册表中的dataBinary数据?给出完整代码好吗

Answer 1

Reg:= TRegistry.Create;
 Reg.RootKey := HKEY_CURRENT_USER ;
 if (Reg.OpenKey('Software\\Truman\\管理中心',false) = false) then
     begin
       Bina := reg.ReadBinaryData(const Name: string; var Buffer;BufSize:Integer);
     end;

Answer 2

注册表写二进值的方法：语句作用：在注册表里建立abc主键和EditFlags二进值关于注册表写字串的资料很多，唯独定位写二进值语句的，翻遍了整个网络也没有，只好自己写了一个，在这里作个备份，以免日后忘了，也算送给大家共享：var
reg:TRegistry;
Bufor: array[0..3] of Byte;//准备00 00 00 00 四个值位
begin
reg:=TRegistry.Create;
reg.RootKey :=HKEY_CLASSES_ROOT;//自己定义KEY根
reg.OpenKey (‘abc‘,true);//自定义abc主键
Bufor[0]:=0;//定位1，二进值的值，下同
Bufor[1]:=0;
Bufor[2]:=1;
Bufor[3]:=0;
reg.WriteBinaryData(‘EditFlags‘,Bufor,SizeOf(Bufor));//写注册表
reg.CloseKey;
reg.Free;
end;结果为：
在HKEY_CLASSES_ROOT下，
abc键：EditFlags 00 00 01 00 
 
 结贴！！