about.~pas

模块名称: 一、基础信息管理 碟片管理 歌曲管理 歌星管理 人员管理 二、借阅管理 借出登记 归还登记 借阅查询 其它管理 三、系统管理 权限设置 更改密

unit About;

interface

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

type
  TfrmAbout = class(TForm)
    Image1: TImage;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Image2: TImage;
    Label12: TLabel;
    OKButton: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure OKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

{$R *.DFM}

procedure TfrmAbout.FormShow(Sender: TObject);
var MemInfo:Memorystatus;
begin
    MemInfo.dwLength :=sizeof(Memorystatus);
    GlobalMemoryStatus(MemInfo) ;
    //label2.Caption :=IntToStr(MemInfo.dwMemoryLoad )+'%';
    label11.Caption :=inttostr(MemInfo.dwTotalPhys div 1024)+' KB';

end;

procedure TfrmAbout.OKButtonClick(Sender: TObject);
begin
  close;
end;

end.