about.pas

单片机编程的一款好软件

{******************************************************************************}
{------------------------------- 关于程序窗口 ---------------------------------}
{******************************************************************************}
unit About;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;
type
  TF_About = class(TForm)
    Image1: TImage; Image2: TImage; Button1: TButton;
    Bevel1: TBevel; Bevel2: TBevel; Bevel3: TBevel; Label5: TLabel;
    Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; 
    Label6: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel;
   procedure FormCreate(Sender: TObject);           // 窗体创建事件
   procedure Button1Click(Sender: TObject);         // 确定按钮
  private { Private declarations }
   procedure GetOSInfo;                             // 查看操作系统信息
   Procedure GetMemoryInfo ;                        // 查看 windows 可用内存资源
  public  { Public declarations }
end;
var
  F_About: TF_About;
implementation
{$R *.dfm}
////////////////////////////////// 程序开始 ////////////////////////////////////
{==============================================================================}

{------------------------------------------------------------------------------}
Procedure TF_About.GetMemoryInfo ;                   //查看 windows 可用内存资源
var
  MS:TMemoryStatus;
  MStr:String;
begin
  MS.dwLength:=SizeOf(TMemoryStatus);
  GlobalMemoryStatus(MS);
  MStr:=FormatFloat('#,###" KB"',MS.dwTotalPhys div 1024);
  Label6.Caption:=Label6.Caption+MStr;
end;
{------------------------------------------------------------------------------}
procedure TF_About.GetOSInfo;                        //获取系统信息过程
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
        Label2.Caption:= Label2.Caption+Format('%s   %d.%d ( Build %d )',
                     [Platform,Win32MajorVersion,Win32MinorVersion,BuildNumber])
      else
        Label2.Caption:=Label2.Caption+Format('%s   %d.%d ( Build %d: %s )',
                                  [Platform,Win32MajorVersion,Win32MinorVersion,
                                                  BuildNumber,Win32CSDVersion]);
    end
  else
    Label2.Caption:=Label2.Caption
          +Format('%s   %d.%d', [Platform,Win32MajorVersion,Win32MinorVersion]);
end;
{------------------------------------------------------------------------------}
procedure TF_About.FormCreate(Sender: TObject);      // 窗体启动事件
begin
  try
    label9.Caption:='     本计算机程序受著作权法和国际公约的保护，'
                    +#13+'未经授权擅自复制或传播本程序的部分或全部，'
                    +#13+'可能受到严厉的民事及刑事制裁，并将在法律'
                    +#13+'许可的范围内受到最大可能的起诉。';
    GetOsinfo;                                       // 调用查看操作系统信息过程
    GetMemoryInfo;                                   // 调用查看可用内存资源过程
  except
    MessageBox(handle,'某些信息不能取得','提示',MB_OK);
  end;
end;
{------------------------------------------------------------------------------}
procedure TF_About.Button1Click(Sender: TObject);    // <确定>按钮处理事件
begin F_About.Close; end;
{------------------------------------------------------------------------------}

{==============================================================================}
///////////////////////////////// 程序结束 /////////////////////////////////////
end.