{*******************************************************}
{                                                       }
{       單元名稱: About                                 }
{       創建日期: 2005-08-26                            }
{       摘要說明: 關于圖片顯示                          }
{                                                       }
{       詳細說明:                                       }
{                                                       }
{       參　　閱:                                       }
{                                                       }
{       已知問題:                                       }
{                                                       }
{       待作事項:                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       當前版本: 2.0                                   }
{       版本歷史:                                       }
{                                                       }
{*******************************************************}

unit About;

{==========================================================================
                        單元接口部分
==========================================================================}

interface

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

type
  TFrmAbout = class(TForm)
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAbout          : TFrmAbout;

  {==========================================================================
                          單元實現部分
  ==========================================================================}

implementation

{$R *.DFM}

procedure TFrmAbout.FormShow(Sender: TObject);
//var
  //MS: TMemoryStatus;
begin
  //GlobalMemoryStatus(MS);
  //PhysMem.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024);
  //FreeRes.Caption := Format('%d %%', [MS.dwMemoryLoad]);
end;

procedure TFrmAbout.Image1Click(Sender: TObject);
begin
  Close;
end;

end.