ufrmabout.pas

水电管理系统,介绍了水电管理系统的基本结构和基本功能,对进行这方面的开发人员有一定帮助

unit ufrmAbout;

interface

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

type
  TfrmAbout = class(TForm)
    BitBtn1: TBitBtn;
    Image1: TImage;
    Shape1: TShape;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lblMemory: TLabel;
    lblOS: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure GetOSInfo;      //系统信息程序
    Procedure GetMemoryInfo ; //可用资源程序
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

{$R *.DFM}

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

procedure TfrmAbout.FormDestroy(Sender: TObject);
begin
  frmAbout := nil;
end;

procedure TfrmAbout.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmAbout.GetMemoryInfo;
var
  MS: TMemoryStatus;
begin
  MS.dwLength:=SizeOf(TMemoryStatus);
  GlobalMemoryStatus(MS);
  lblMemory.Caption:=lblMemory.Caption +FormatFloat('#,###" KB"',MS.dwTotalPhys div 1024);

end;

procedure TfrmAbout.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 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 TfrmAbout.FormShow(Sender: TObject);
begin
  try
    GetOSInfo;
    GetMemoryInfo;
  except
    MessageBox(Handle, pchar('系统某些信息不能取得！'), pchar('提示'), MB_ICONWARNING or MB_OK);
    Exit;
  end;
end;

end.