unit1.pas

按右键就可以写进注册表程序,做程序注册参考

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    OpenDialog1: TOpenDialog;
    SpeedButton1: TSpeedButton;
    BitBtn2: TBitBtn;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
 Reg:TRegistry;
begin
if (trim(edit1.Text)='') or (trim(edit2.Text)='') or
  (trim(edit3.Text)='') then
begin
showmessage('输入不能为空！');
edit1.SelectAll;
edit1.SetFocus;
exit;
end;

    Reg:=TRegistry.Create;
    try
      Reg.RootKey:=HKEY_CLASSES_ROOT;
      Reg.OpenKey('*\Shell\'+trim(edit1.Text),True);
      Reg.WriteString('',trim(edit2.Text));
      Reg.CloseKey;
      Reg.OpenKey('*\Shell\'+trim(edit1.Text)+'\Command',True);
      Reg.WriteString('','"'+trim(edit3.Text)+'" "%1"');
      Reg.CloseKey;
    finally
      Reg.Free;
    end;
showmessage('注册成功！');
close;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if opendialog1.Execute then
  begin
    edit3.Text:=opendialog1.FileName;
  end
  else
    showmessage('打开文件失败!');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  ARegistry:TRegistry;
begin
  ARegistry:=TRegistry.Create;
//建立一个TRegistry实例
  with ARegistry do
  begin
  RootKey:=HKEY_LOCAL_MACHINE;//指定根键为HKEY-LOCAL-MACHINE
  //打开主键Software
  if OpenKey( 'Software\Microsoft\Windows NT\CurrentVersion',false ) then
  begin
    edit4.Text:=CurrentPath;
    edit5.Text:=ReadString('productId');
    edit6.Text:=ReadString('ProductName');
    edit7.Text:=ReadString('RegisteredOrganization');
    edit8.Text:=ReadString('RegisteredOwner');
    edit9.Text:=ReadString('SoftwareType');
  end;
  CloseKey;//关闭主键
  Destroy;//释放内存
  end;


end;

end.