unit_about.pas

DELPHI7程序编写的游戏截图器 生成.EXE文件可以进行游戏截图

unit Unit_about;

interface

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

type
  TForm2 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject;shift:Tshiftstate;x,
      y:integer);
    procedure Label3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  PtrSound,ptrsoundstop : PChar;
  hRes : THandle;

implementation

uses Unit_capscr;

{$R *.dfm}

{$R pad.RES}


procedure TForm2.Timer1Timer(Sender: TObject);
begin         
  if not(form2.clientHeight = 150) and not(form2.clientWidth=210) then
   begin
    form2.clientHeight := form2.clientHeight + 5;
    form2.clientwidth  := form2.clientwidth + 7;
   end
    else timer1.Enabled := false;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
//  SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
  form2.clientHeight :=0;
  form2.clientWidth  :=0;
end; 

procedure TForm2.Label3MouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer);
begin
  Label3.Font.Style:=[fsbold,fsunderline];
  Label3.Font.Color:=clblue;
end;

procedure TForm2.FormMouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer);
begin
  Label3.Font.Style:=[];
  Label3.Font.Color :=clYellow;
end;

procedure TForm2.Label3Click(Sender: TObject);
begin
  Shellexecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TForm2.FormShow(Sender: TObject);
var
  hResInfo : THandle;
begin

  hResInfo := FindResource(HInstance, 'SOUND1', 'WAV');
  hRes := LoadResource(HInstance, hResInfo);
  if hRes > 32 then                        // its a good load
    begin                                  // lock the resource
      ptrSound:=LockResource(hRes);
    end;
  sndplaysound(ptrSound,snd_async or snd_Memory);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  sndplaysound(ptrSoundstop,snd_async or snd_Memory);
  Form1.Enabled :=true;
//  freemem( @hres);
end;

end.