fmaboutserver.pas

学籍管理

{**********************************************************************}
{                    ==================                                }
{                       关于对话框                                     }
{                   ==================                                 }
{                                    《学籍管理系统》--作者：贺广兵    }
{                                                                      }
{     调用了一个系统 Win32API 函数，得到系统内存。                     }
{                                                                      }
{**********************************************************************}
unit fmAboutServer;

interface

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

type
  TfmAbout = class(TForm)
    Image1: TImage;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label6: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    function GetTotalMemory: String;
    function GetAvailMemory: String;
    { Public declarations }
  end;

var
  fmAbout: TfmAbout;

implementation

{$R *.DFM}

function TfmAbout.GetTotalMemory:String;
var
  MemoryInfor:TMemoryStatus;  //得到总内存数
begin
  MemoryInfor.dwLength:=SizeOf(TMemoryStatus);
  GlobalMemoryStatus(MemoryInfor);
  Result:=FloatToStr(MemoryInfor.dwTotalPhys/1024);
end;

procedure TfmAbout.FormShow(Sender: TObject);
begin
  Label7.Caption:=GetTotalMemory+' KB';
  Label9.Caption:=GetAvailMemory+' KB';
end;

function TfmAbout.GetAvailMemory: String;
var
  MemoryInfor:TMemoryStatus;  //得到总内存数
begin
  MemoryInfor.dwLength:=SizeOf(TMemoryStatus);
  GlobalMemoryStatus(MemoryInfor);
  Result:=FloatToStr(MemoryInfor.dwAvailPhys/1024);
end;

end.