splash.pas

wbs43open-src.zip 数字隐藏工具

unit splash;

interface

uses
  SysUtils, Classes
  , wbsData, regtools, MultiLang
{$IFDEF CLX}
  , QGraphics, QControls, QForms, QDialogs, QExtCtrls, QStdCtrls, QTypes
{$ELSE}
  , Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls
{$ENDIF}
  ;

type
  TForm5 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5:    TForm5;
  WaitFor:  Integer;

implementation

{$R *.dfm}

procedure TForm5.Timer1Timer(Sender: TObject);
begin
  WaitFor:=WaitFor+100;
  If (IsRegd) And (WaitFor>=1300) Then Close;
end;


procedure TForm5.FormShow(Sender: TObject);
begin
  WaitFor:=0;
  If IsRegd Then Begin
    Label2.Caption:='';//ml.GetCodeString('splash',1){'This copy is registered for '}+RegUsername+'.';   // code001
    Button1.Visible:=False;
    Button2.Visible:=False;
  End
  Else Begin
    If (Trunc(Date)-Trunc(InstDate))<=30 Then Begin
      Label2.Caption:=ml.GetCodeString('splash',2){;'Unregistered trial version. '}+IntToStr(30-(Trunc(Date)-Trunc(InstDate)))+ml.GetCodeString('splash',3){' days left.'};  // code002, code003
    End
    Else Begin
      Label2.Caption:=ml.GetCodeString('splash',4){'Unregistered trial version. Trial period is over!'}; // code004
      Button1.Caption:=ml.GetCodeString('splash',5){'&Register!'};   // code005
      Button2.Caption:=ml.GetCodeString('splash',6){'&Quit'};  // code006
    End;
  End;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
  If (Trunc(Date)-Trunc(InstDate))>30 Then KillApp:=True;
  Close;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
  Form7.ShowModal;
  WaitFor:=1300;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
  // ml support
  Button1.Caption:=ml.GetComponentString('splash.Button1.Caption');
  Button2.Caption:=ml.GetComponentString('splash.Button2.Caption');
  Label1.Caption:=ml.GetComponentString('splash.Label1.Caption');
  Label2.Caption:=ml.GetComponentString('splash.Label2.Caption');
  ml.GetComponentStringList('splash.Memo1.Lines',Memo1.Lines);
  // images
  ml.GetComponentImage('splash.Image1.Picture',Image1.Picture.Graphic);
  ///////////////////////////////////////////////////////////////////////
end;

end.