abortunit.pas

东华休闲山庄洗浴、餐饮、客房管理系统

unit AbortUnit;

interface

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

type
  TAbortForm = class(TForm)
    lblOs: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Author: TLabel;
    Others: TLabel;
    Panel1: TPanel;
    Version: TLabel;
    Copyright: TLabel;
    lblMemory: TLabel;
    ProductName: TLabel;
    ProgramIcon: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    procedure GetOSInfo;//获取系统信息
    Procedure GetMemoryInfo;//获取资源信息
  public
    { Public declarations }
  end;

var
  AbortForm: TAbortForm;

implementation

uses MainUnit;

{$R *.DFM}

procedure TAbortForm.GetOSInfo;
var
  BuildNumber:Integer;
  Platform:string;
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 TAbortForm.GetMemoryInfo;
var
  MS:TMemoryStatus;
begin
  MS.dwLength:=SizeOf(TMemoryStatus);
  GlobalMemoryStatus(MS);
  lblMemory.Caption:=lblMemory.Caption+FormatFloat('#,###" KB"',MS.dwTotalPhys div 1024);
end;

procedure TAbortForm.FormCreate(Sender: TObject);
begin
  try
    Caption:='关于东华休闲山庄洗浴管理系统';
    ProgramIcon.Picture.icon:=Application.Icon;
    ProductName.Caption:=ProductName.Caption+'东华休闲山庄洗浴管理系统';
    version.Caption:=version.Caption+'10.25';
    Copyright.Caption:=Copyright.Caption+'吉林省育人培训中心';
    Author.Caption:=Author.Caption+'育人培训';
    Others.Caption:='警告：未经允许，任何个人、单位不可以任何方式非法拷贝、盗用！'+
                    '但是，系统在运行过程中出现的任何问题作者将不负任何连带责任！'+
                    #13+
                    #13+
                    '程序运行于WinXP,Access2000支持！';
    GetMemoryInfo;
    GetOsinfo;
  except
    MessageBox(handle,'某些信息不能取得','提示',MB_OK);
  end;
end;

procedure TAbortForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Mainform.Enabled:=true;
end;

procedure TAbortForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_ESCAPE then
    close;
end;

end.