将二进制数据添加到注册表

【例子介绍】
【相关图片】

【源码结构】

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.