uregtable.~pas

来自「某计算机系本科学生做的加密设计及实现」· ~PAS 代码 · 共 104 行

unit uRegTable;

interface

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

type
  TRegTableFrm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Bevel1: TBevel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    btnEnterCode: TButton;
    btnAgree: TButton;
    btnExit: TButton;
    btnHelp: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    lblDays: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    lblDaysLeft: TLabel;
    Label12: TLabel;
    Image2: TImage;
    procedure btnExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnAgreeClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnEnterCodeClick(Sender: TObject);
    procedure btnRegNowClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    CanClose: Boolean;
  public
    { Public declarations }
  end;

var
  RegTableFrm: TRegTableFrm;
  reg:boolean;
implementation
uses uRegSoft, jsq;

{$R *.dfm}

procedure TRegTableFrm.btnExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TRegTableFrm.FormCreate(Sender: TObject);
begin
  if RegSoftFrm = nil then
    RegSoftFrm := TRegSoftFrm.Create(self);
  reg := RegSoftFrm.RegwareII.CheckRegistered;
  lblDays.Caption := IntToStr(RegSoftFrm.RegwareII.Days - RegSoftFrm.RegwareII.DaysLeft);
  lblDaysLeft.Caption := IntToStr(RegSoftFrm.RegwareII.DaysLeft);
end;

procedure TRegTableFrm.btnAgreeClick(Sender: TObject);
begin
  RegTableFrm.Hide;
  jsq.Form1.Caption:=jsq.Form1.Caption+'-未注册版本';
  jsq.Form1.ShowModal;
  RegTableFrm.Close;  
end;

procedure TRegTableFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caNone;
//  RegSoftFrm.ShowModal;
  RegSoftFrm.Free;
  RegSoftFrm := nil;
end;

procedure TRegTableFrm.btnEnterCodeClick(Sender: TObject);
begin
  RegSoftFrm.ShowModal;
end;

procedure TRegTableFrm.btnRegNowClick(Sender: TObject);
begin
  RegSoftFrm.ShowModal;
end;

procedure TRegTableFrm.FormShow(Sender: TObject);
begin
  if reg then
  begin
   jsq.Form1.Caption:=jsq.Form1.Caption+'-已注册';
   Form1.ShowModal;
  end;
end;

end.