unit_about.pas

扫雷

{******************************************************************************
*   Uint  Unit_About
*   Function  关于 对话框的功能实现部分
*      声明: 此Unit中的部分代码引用自 "中国-西安-孜孜工作室".在此表示感谢！
*
*   CopyRight (c) By 虹雨 (Huansun) 2002-8
*
*   Date    :
*       New Develop   : 2002-7-27
*       Modified      : 2002-8-18
******************************************************************************}

unit Unit_About;

interface

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

type
  Tfrm_About = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    Label_ProductName: TLabel;
    Label_Version: TLabel;
    Label_Copyright: TLabel;
    Label_Others: TLabel;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    Label_lblMemory: TLabel;
    Label_Reference: TLabel;
    Label_Ref_Version: TLabel;
    Label_Welcome: TLabel;
    Label_Email: TLabel;
    Label_QQ: TLabel;
    Image1: TImage;
    Label1: TLabel;
    Label_QQ_Name: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure OKButtonClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Label_EmailClick(Sender: TObject);
    procedure Label_EmailMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label_QQClick(Sender: TObject);
    procedure Label_QQMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
  { Private declarations }
    s:string;
//    Procedure Delay(x,y:word);//延时程序
    Procedure GetMemoryInfo ; //可用资源程序
  public
  { Public declarations }
end;

var
  frm_About: Tfrm_About;
  myVersion:string;

implementation

uses Unit_Main;

{$R *.DFM}

Procedure Tfrm_About.GetMemoryInfo ;//可用资源
var
  MS: TMemoryStatus;
begin
  MS.dwLength:=SizeOf(TMemoryStatus);
  GlobalMemoryStatus(MS);
  Label_lblMemory.Caption:=Label_lblMemory.Caption +FormatFloat('#,###" KB"',MS.dwTotalPhys div 1024);
end;

{procedure Tfrm_About.Delay(x,y:word);
var
  timeout:TDateTime;
begin
  //该成为WINDOWS APP启动时间这个函数来做!
  timeout:=now+encodeTime(0,x div 60,x mod 60,y);
  While now<timeout do Application.ProcessMessages;
end;
}

procedure Tfrm_About.FormCreate(Sender: TObject);
var
  cj_i:integer;
begin
  Top :=Frm_Main .Top +Frm_Main .Panel_top .Height* 2 -25;
  left:=Frm_Main .Left +20;

  unit_Main.checkMainFormPosition(frm_About );

  myVersion :='0.93';
  try
    Icon :=nil;
    ProgramIcon.Picture.icon:=Application.Icon;                //图标
    case LanguageType of
      l_Chinese_Simplified :
        begin
          Caption:='关于 迷你扫雷';//+application.Title;                    //标题
          Label_ProductName.Caption:='软件名称 : 迷你扫雷';  //Application.Title;//产品名称
          Label_version.Caption    :='版    本 : '+myVersion ;                   //版本
          Label_Copyright.Caption  :='版权所有 : 虹雨 ( Huansun ) 2002-8';

          Label_Reference.Caption:='参考软件: Microsoft(R) 扫 雷 ';
          Label_Ref_Version .Caption:='版 本: 5.1  (内部版本号 2600.xpclient.010817-1148) ';
          Label_lblMemory.Caption :='Windows 的可用物理内存：';

          Label_others.Caption:='此扫雷程序完全模仿Windows XP 自带的扫雷游戏制作。';
          Label_Welcome.Left :=52;
          label1.Left :=140;
          Label_Email.Left :=188;
          Label_QQ_Name .left:=164;
          Label_QQ.left:=188;
          Label_Welcome.Caption :='欢迎与我联系';
          Label_Email .Caption :=Label_Email.Caption + '[e-mail]';
          Label_Email .Font.Color :=clblue;
          Label_QQ .Caption :=Label_QQ.Caption + '20161974';

          BitBtn1.Caption :='确定';

        end;

      l_Chinese_Traditional :
        begin
          Caption:='闽