xtzc1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit xtzc1;

interface

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

type
  Txtzc = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xtzc: Txtzc;

implementation

uses zc1;

{$R *.DFM}

procedure Txtzc.FormActivate(Sender: TObject);
begin
  Edit1.Text := zc.Edit1.Text;
end;

procedure Txtzc.BitBtn1Click(Sender: TObject);
var Reg: TRegistry;
begin
  if Edit2.Text <> zc.Edit2.Text then
  begin
    Application.MessageBox('注册码不正确.', '注意', MB_OK + MB_ICONERROR);
    exit;
  end;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\kissliu\pos', False) then
    begin
      Reg.WriteString('Regcode', Edit2.Text);
      Application.MessageBox('系统注册成功,请重新登录系统.', '注意', MB_OK + MB_ICONINFORMATION);
    end;
  finally
    Reg.Free; // 用 Try..Finally 结构确保 REG 变量能够释放。
  end;
  Application.Terminate;
end;

end.