关于读写注册表二进制数据的问题计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:35:59
来源 100Test.Com百考试题网

　　关于读写注册表二进制数据的问题
　　在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.