關於讀寫注冊表二進制數據的問題

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