基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：78630559

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

unit Unit1;

interface

uses
  Windows, Registry,Messages,SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  type
  TBinData = record
    Index : integer;
    Text : string[100];
  end;
  var
  Reg : TRegistry;
  BinData : TBinData;
begin
  BinData.Index:=7;
  BinData.Text:='This is just a text, index doesn''t mean anything';
  Reg := TRegistry.Create;
  //创建注册表对象
  with Reg do begin
    OpenKey('\Software\MyCompany\MyApplication', true);
    //打开键
    WriteBinaryData('BinData',BinData,SizeOf(TBinData));
    //添加数据
    Free;
  end;
end;

end.