unitfrmmain.pas

精彩编程百例51～75 其中有 cpu速度测试 检测声卡 查询内存信息 图像处理技巧 模拟放大镜效果等待

unit unitFrmMain;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Timer1: TTimer;
    Gauge1: TGauge;
    Gauge2: TGauge;
    Gauge3: TGauge;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    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;
 TMS : TMemoryStatus;
begin
  // 获取内存信息
  timer1.enabled:=true;
  GlobalMemoryStatus(MemInfo);
  Memo1.Lines.Add(IntToStr(MemInfo.dwMemoryLoad) + '%的内存在使用');
  Memo1.Lines.Add('物理内存共：' + IntToStr(MemInfo.dwTotalPhys) + '字节');
  Memo1.Lines.Add('未使用的物理内存：' + IntToStr(MemInfo.dwAvailPhys) + '字节');
  Memo1.Lines.Add('交换文件：' + IntToStr(MemInfo.dwTotalPageFile) + '字节');
  Memo1.Lines.Add('未使用的交换文件：' + IntToStr(MemInfo.dwAvailPageFile) + '字节');
  Memo1.Lines.Add('虚拟内存空间：' + IntToStr(MemInfo.dwTotalVirtual) + '字节');
  Memo1.Lines.Add('未使用的虚拟内存：' + IntToStr(MemInfo.dwAvailVirtual) + '字节');
  if timer1.Enabled then
  memo1.Lines.add('                               *_*       ');
  TMS.dwLength := SizeOf (TMS);
     GlobalMemoryStatus (TMS);
     Gauge1.Progress := TMS.dwMemoryLoad;
     Gauge2.Progress := (100*TMS.dwAvailPhys) Div TMS.dwTotalPhys;
     Gauge3.Progress := (100*TMS.dwAvailPageFile) Div TMS.dwTotalPageFile;

  end;



end.