{******************************************************************************
*   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 + 'zmxue@hotmail.com';
          Label_Email .Font.Color :=clblue;
          Label_QQ .Caption :=Label_QQ.Caption + '20161974';

          BitBtn1.Caption :='確定';

        end;

      l_Chinese_Traditional :
        begin
          Caption:='閩