helpa.pas

源代码竟供大家参考

unit helpa;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ShellAPI, Grids;

type
  Tf_help_about = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Bevel1: TBevel;
    memst: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    memleft: TLabel;
    Label7: TLabel;
    Http: TLabel;
    Label9: TLabel;
    mailto: TLabel;
    TogName: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure HttpClick(Sender: TObject);
    procedure mailtoClick(Sender: TObject);
    procedure TogNameClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_help_about: Tf_help_about;

implementation

uses main,helpag, togaut;

{$R *.DFM}

procedure Tf_help_about.Button1Click(Sender: TObject);
begin
  close;
end;

procedure Tf_help_about.FormShow(Sender: TObject);
var mem : TMemoryStatus;
begin
  GlobalMemoryStatus(mem);
  memst.Caption:=FormatFloat('##,###,###',trunc(mem.dwTotalPhys/1024))+' KB';
  memleft.Caption:=FormatFloat('##,###,###',trunc(mem.dwAvailPhys/1024))+' KB';
end;

procedure Tf_help_about.Image1DblClick(Sender: TObject);
begin
  f_help_about.Close;
  f_help_about_game.show;
end;

procedure Tf_help_about.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  f_main.Enabled:=true;
end;

procedure Tf_help_about.HttpClick(Sender: TObject);
begin
  ShellExecute(f_help_about.Handle,nil,pchar(Http.Hint),nil,nil,SW_SHOWNORMAL);
end;

procedure Tf_help_about.mailtoClick(Sender: TObject);
begin
  ShellExecute(f_help_about.Handle,nil,PChar(mailto.Hint),nil,nil,SW_SHOWNORMAL);
end;

procedure Tf_help_about.TogNameClick(Sender: TObject);
begin
  f_help_about.Close;
  f_TogAut.Show;
end;

end.