unit3.pas

一个用delphi编写的过关游戏

Unit Unit3;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ShellAPI, jpeg;

Type
  THelpForm = Class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Procedure Image2Click(Sender: TObject);
    Procedure Image3Click(Sender: TObject);
    Procedure Image1Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  HelpForm          : THelpForm;

Implementation

{$R *.DFM}

Procedure THelpForm.Image2Click(Sender: TObject);
Begin
  ShellExecute(Handle, 'OPEN', 'mailto:[e-mail]', Nil, Nil, sw_show);
  Close;
End;

Procedure THelpForm.Image3Click(Sender: TObject);
Begin
  ShellExecute(Handle, 'OPEN', 'http://www.joffa.com', Nil, Nil, sw_show);
  Close;
End;

Procedure THelpForm.Image1Click(Sender: TObject);
Begin
  close;
End;

End.