splash.pas

来自「这是一个正式的项目工程」· PAS 代码 · 共 80 行

unit splash;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, DBTables, Db, jpeg,wsCores,wsTypes;

type
  TfrmSplash = class(TForm)
    PaintBoxSplash: TPaintBox;
    ImageSplash: TImage;
    lblCompany: TLabel;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    VirtualKey :String;
  public
    { Public declarations }
  end;

var
  frmSplash: TfrmSplash;

implementation



{$R *.DFM}

procedure TfrmSplash.FormCreate(Sender: TObject);
//var
//  tblLoginValue:String;
//  DecryptNo:Integer;
begin
 VirtualKey:='';
{  GlobalSystem[UserUnitName]:=GetINIValue('User','UserUnitName');
  LabelUserName.Caption:=GlobalSystem[UserUnitName];
  DecryptNo:=7;
  tblLoginValue:=StrReverse(GetINIValue('User','UserName'));
  tblLoginValue:=DecryptMsg(tblLoginValue,DecryptNo);
  GlobalSystem[UserName]:=tblLoginValue;
  tblLoginValue:=StrReverse(GetINIValue('User','UserPassword'));
  tblLoginValue:=DecryptMsg(tblLoginValue,DecryptNo);
  GlobalSystem[UserPassword]:=tblLoginValue;}
end;

procedure TfrmSplash.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_Right then
     VirtualKey:=VirtualKey+'1';
  if key=VK_Up then
     VirtualKey:=VirtualKey+'9';
  if key=VK_Left then
     VirtualKey:=VirtualKey+'7';
  if key=VK_Down then
     VirtualKey:=VirtualKey+'4';
  if key=VK_END then
     VirtualKey:=VirtualKey+'0';
  if key=VK_Home then
     VirtualKey:=VirtualKey+'3';
  if VirtualKey='197403' then
  begin
    GetCopyRight(PChar(VirtualKey));
  end;
end;

procedure TfrmSplash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;

end;

end.