www.pudn.com > 灰鸽子VIP1.2.rar > AboutUnit.pas

unit AboutUnit; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, Main, DynamicSkinForm, Buttons, SkinCtrls, SkinBoxCtrls, 
  SkinGrids, ExtCtrls,shellapi,DESCrypt, jpeg, IdGlobal, LangFrm; 
 
type 
  TAboutForm = class(TLangForm) 
    Bevel1: TBevel; 
    Image1: TImage; 
    Label4: TspSkinStdLabel; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Image2: TImage; 
    Button1: TspSkinButton; 
    DSF: TspDynamicSkinForm; 
    procedure Button1Click(Sender: TObject); 
    procedure Label2Click(Sender: TObject); 
    procedure Label3Click(Sender: TObject); 
    procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure FormKeyDown(Sender: TObject; var Key: Word; 
      Shift: TShiftState); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
 
  end; 
 
var 
  AboutForm: TAboutForm; 
  keytp:string; 
implementation 
 
 
{$R *.DFM} 
 
procedure TAboutForm.Button1Click(Sender: TObject); 
begin 
  Close; 
end; 
 
procedure TAboutForm.Label2Click(Sender: TObject); 
begin 
ShellExecute(0, 'open', pchar(DeCryptStr('487D6CB4BADFCCE3314D70B78C37E4A19967A11A0A8FAA17',Head)), nil, nil, SW_SHOWMAXIMIZED); 
end; 
 
procedure TAboutForm.Label3Click(Sender: TObject); 
begin 
ShellExecute(0, 'open', pchar(DeCryptStr('BB47B76BEF00F0D316AF0B736236860EC89101DF0482D0975C7F285763EE94F9F56C1B69A1956EE040232466768FCAB4',Head)), nil, nil, SW_SHOW); 
end; 
 
procedure TAboutForm.Label2MouseMove(Sender: TObject; Shift: TShiftState; 
  X, Y: Integer); 
begin 
  Label2.Font.Color:=clRed; 
end; 
 
procedure TAboutForm.Label3MouseMove(Sender: TObject; Shift: TShiftState; 
  X, Y: Integer); 
begin 
  Label3.Font.Color :=clRed; 
end; 
 
procedure TAboutForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  Label2.Font.Color :=clWindowText; 
  Label3.Font.Color :=clWindowText; 
end; 
 
procedure TAboutForm.FormKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
//是否按下ALT键，只接收字符 
if (shift=[ssALT]) and (key>=$41) and (key<=$5A) then 
begin 
  keytp:=keytp+chr(key); 
  if keytp='HUIGEZI' then 
    begin 
      Image2.Visible:=True; 
      //Close; 
    end; 
   if keytp='LOVE' then 
    begin 
      Showmessage(EOL+'慧到永远!'+EOL+ 
                  EOL+'          葛军'); 
    keytp:=''; 
    Close; 
    end; 
end; 
end; 
 
end.