unit2.~pas

DELPHI软件注册算法实现示例

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    codeedit: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    useredit: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure codeeditChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
var
reg:Tregistry;
flag1:string;
begin
 reg:=Tregistry.Create;
 reg.RootKey:=HKEY_CURRENT_USER;
   try
     if reg.OpenKey('\Software\pos',true) then
      begin
       flag1:=reg.ReadString('code');
       
      end;
 if trim(codeedit.Text)=trim(flag1) then
    begin
      reg.WriteString('rege','1');
      reg.WriteString('username',useredit.Text);
      showmessage('注册成功，欢迎使用！');
      close;
      form1.N5.Enabled:=false;
      form1.Caption:= 'POS V1.0 已注册！';
      form1.N1.Enabled:=true;
      form1.N2.Enabled:=true;
    end
else
    showmessage('注册码错误，注册失败！');
 finally
 reg.CloseKey;
 end;
end;

procedure TForm2.codeeditChange(Sender: TObject);
begin
if length(codeedit.Text)=6 then
form2.SpeedButton1.Click;
end;

end.