unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(Timer1->Enabled==true)
        {
                Timer1->Enabled=false;
                Button1->Caption="开始";
        }
        else
        {
                Timer1->Enabled=true;
                Button1->Caption="暂停";
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Timer1->Enabled=false;
        Form1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        //获取内存状态
        MEMORYSTATUS memory;
        memory.dwLength=sizeof(memory); //初始化
        GlobalMemoryStatus(&memory);
        Memo1->Clear();
        //当前内存
        Memo1->Lines->Add("当前已使用内存的百分比为："+String(memory.dwMemoryLoad)+"%");
        Memo1->Lines->Add("");
        //物理内存
        Memo1->Lines->Add("您的物理内存为(Kb)："+String(memory.dwTotalPhys/1024));
        Memo1->Lines->Add("其中可用内存为(Kb)："+String(memory.dwAvailPhys/1024));
        Memo1->Lines->Add("");
        //虚拟内存
        Memo1->Lines->Add("虚拟内存为(Kb)："+String(memory.dwTotalVirtual/1024));
        Memo1->Lines->Add("可用虚拟内存为(Kb)："+String(memory.dwAvailVirtual/1024));
        Memo1->Lines->Add("");
        //页面交换文件
        Memo1->Lines->Add("页面交换文件为(Kb)："+String(memory.dwTotalPageFile/1024));
        Memo1->Lines->Add("其中可用部分为(Kb)："+String(memory.dwAvailPageFile/1024));
}
//---------------------------------------------------------------------------