关于读写注册表二进制数据的问题

页面导航:首页 > 软件编程 > Delphi > 关于读写注册表二进制数据的问题

关于读写注册表二进制数据的问题

来源: 作者: 时间:2016-01-21 09:33 【

关于读写注册表二进制数据的问题在Delphi的帮助文件中得到了关于注册表二进制数据的读写函数声明,但是帮助文件中并没有给出例子.现在我给出例程.1.读取二进制数据function ReadBinaryD

关于读写注册表二进制数据的问题

在Delphi的帮助文件中得到了关于注册表二进制数据的读写函数声明,但是帮助文件中并没有给出例子.现在我给出例程.

1.读取二进制数据
function ReadBinaryData(const Name: String; var Buffer; BufSize: Integer): Integer;
从当前键值返回一个二进制数据.如果成功则返回所需数据,所需数据保存在buffer中,而返回的integer值表示返回数据的大小(byte).

2.存储二进制数据
procedure WriteBinaryData(const Name: String; var Buffer; BufSize: Integer);
存储一个二进制数据到指定的键值.

例程:
procedure TForm1.Button1Click(Sender: TObject);
var
   reg:TRegistry;               {声明Regstry对象}
   typ:TRegDataType;       {注册表数据类型.常用的有字符串类型(rdString)、数值类型(rdInteger)、二进制类型(rdBinary)}
   str:string;                       {用于显示操作信息}
   i:integer;                        {注册表的数据大小,以字节为单位}
  vv:integer;                      {注册表的数据内容}
begin
   reg:=TRegistry.Create;                                       {创建注册表对象}
   reg.RootKey :=HKEY_LOCAL_MACHINE;         {设置根键}
   reg.OpenKey (MYSOFT,TRUE);                       {打开主键}
   typ:=reg.GetDataType(ccc);                             {得到所需数据的类型}
   i:=reg.GetDataSize(ccc);                                   {得到所需数据的大小}
   case typ of                                                        {根据数据类型显示提示信息}
     rdstring:
        str:=This is String Type;
     rdInteger:
        str:=This is Integer Type;
     rdBinary:
        str:=This is Binary Type;
   else
     str:=This is Unknown Type;
   end;
   memo1.Lines.Add(str);
   memo1.lines.Add(inttostr(i));                     {提示信息结束}
   reg.ReadBinaryData(ccc,vv,i);                 {读取数据的内容,函数返回数据内容的大小[本例中未写出返回值]}
   memo1.Lines.add(inttostr(vv));
   vv:=1;                                                      {设定数据内容vv=1}
   reg.WriteBinaryData(ccc,vv,i);                  {把数据内容写入注册表中}
   reg.CloseKey;                                           {关闭主键}
   reg.Free;                                                 {释放注册表对象}
end;

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <