当前位置: 开源爱好者 » 编程教程 » Delphi教程 » 正文

Delphi 获取或得到计算机的内存大小和使用百分比情况

Delphi获取电脑的CPU容量大小,以及目前的内存使用百分比,包括虚拟内存的使用量、内存使用量等:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
  MemInfo:MEMORYSTATUS;
begin
  MemInfo.dwLength:=sizeof(MEMORYSTATUS);
//用sizeof(MEMORYSTATUS)填充dwLength成员
  GlobalMemoryStatus(MemInfo);
//获取内存信息
  Edit1.Text:=IntToStr(MemInfo.dwMemoryLoad)+'%';
//内存使用百分比
  Edit2.Text:=IntToStr(MemInfo.dwTotalPhys);
//总物理内存(字节)
  Edit3.Text:=IntToStr(MemInfo.dwAvailPhys);
//未使用物理内存(字节)
  Edit4.Text:=IntToStr(MemInfo.dwTotalPageFile);
//交换文件大小(字节)
  Edit5.Text:=IntToStr(MemInfo.dwAvailPageFile);
//未使用交换文件大小(字节)
  Edit6.Text:=IntToStr(MemInfo.dwTotalVirtual);
//虚拟内存空间大小(字节)
  Edit7.Text:=IntToStr(MemInfo.dwAvailVirtual);
//未使用虚拟内存大小(字节)
end;
end.
相关内容:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图