unit about;

interface

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

type
  Tfrm_about = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    lblOs: TLabel;
    lblMemory: TLabel;
    Panel2: TPanel;
    Image1: TImage;
    Others: TLabel;
    Author: TLabel;
    Bevel2: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  { Private declarations }
    s:string;
    procedure GetOSInfo;      //系統(tǒng)信息程序
    Procedure GetMemoryInfo ; //可用資源程序
  public
  { Public declarations }
end;

var
  frm_about: Tfrm_about;

const
  ver='沸點(diǎn)版';

implementation

{$R *.DFM}

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

procedure Tfrm_about.GetOSInfo; //獲取系統(tǒng)信息
var
  Platform: string;
  BuildNumber: Integer;
begin
  case Win32Platform of
  VER_PLATFORM_WIN32_WINDOWS:
    begin
      Platform := 'Windows 95';
      BuildNumber := Win32BuildNumber and $0000FFFF;
    end;
  VER_PLATFORM_WIN32_NT:
    begin
      Platform := 'Windows NT';
      BuildNumber := Win32BuildNumber;
    end;
    else
    begin
      Platform := 'Windows';
      BuildNumber := 0;
    end;
  end;

  if(Win32Platform = VER_PLATFORM_WIN32_WINDOWS)
    or(Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    if Win32CSDVersion = ''
    then lblOS.Caption := lblOS.Caption+Format('%s%s          %d.%d (Build %d)',[Platform,#13,Win32MajorVersion,Win32MinorVersion,BuildNumber])
    else lblOS.Caption := lblOS.Caption+Format('%s%s          %d.%d (Build %d: %s)',[Platform,#13,Win32MajorVersion,Win32MinorVersion, BuildNumber,Win32CSDVersion]);
  end else lblOS.Caption := lblOS.Caption+Format('%s%s          %d.%d', [Platform,#13,Win32MajorVersion,Win32MinorVersion])
end;

procedure Tfrm_about.FormCreate(Sender: TObject);
begin
  try
    Caption:='關(guān)于 '+application.Title;
    ProgramIcon.Picture.icon:=Application.Icon;
    ProductName.Caption:=ProductName.Caption+Application.Title;
    version.Caption:=version.Caption+ver;
    Copyright.Caption:=Copyright.Caption+'龍泉三力工作室';
    Author.Caption:=Author.Caption+'帥在龍淵';
    Others.Caption:='警告：未經(jīng)允許，任何個(gè)人、單位可以以任何方式非法拷貝、盜用！'+
                    '但是，系統(tǒng)在運(yùn)行過程中出現(xiàn)的任何問題作者將不負(fù)任何連帶責(zé)任！'+#13+#13+
                    '程序運(yùn)行于WinAny，access 2000支持！';
    //初始化---------------------------
    GetMemoryInfo;
    GetOsinfo;
    {***********************}
    //初始化變量s...
    s:='';
  except
    MessageBox(handle,'某些信息不能取得','提示',MB_OK);
  end;
end;

procedure Tfrm_about.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

end.