TStr TSysMemStat::GetStr(){ TChA ChA; ChA+=TUInt64::GetStr(GetLoad()); ChA+=' '; ChA+=TUInt64::GetStr(GetTotalPhys()); ChA+=' '; ChA+=TUInt64::GetStr(GetAvailPhys()); ChA+=' '; ChA+=TUInt64::GetStr(GetTotalPageFile()); ChA+=' '; ChA+=TUInt64::GetStr(GetAvailPageFile()); ChA+=' '; ChA+=TUInt64::GetStr(GetTotalVirtual()); ChA+=' '; ChA+=TUInt64::GetStr(GetAvailVirtual()); return ChA; }
TStr TSysMemStat::GetInfoStr(){ TChA ChA; ChA+="Memory Load:"; ChA+=TUInt64::GetMegaStr(GetLoad()); ChA+="\r\n"; ChA+="Total Physical:"; ChA+=TUInt64::GetMegaStr(GetTotalPhys()); ChA+="\r\n"; ChA+="Available Physical:"; ChA+=TUInt64::GetMegaStr(GetAvailPhys()); ChA+="\r\n"; ChA+="Total Page File:"; ChA+=TUInt64::GetMegaStr(GetTotalPageFile()); ChA+="\r\n"; ChA+="Available Page File:"; ChA+=TUInt64::GetMegaStr(GetAvailPageFile()); ChA+="\r\n"; ChA+="Total Virtual:"; ChA+=TUInt64::GetMegaStr(GetTotalVirtual()); ChA+="\r\n"; ChA+="Available Virtual:"; ChA+=TUInt64::GetMegaStr(GetAvailVirtual()); ChA+="\r\n"; return ChA; }
void __fastcall TAboutObject::TimerTimer(TObject *Sender) { ((TTimer*) Sender)->Enabled = false; lblMemoryValue->Caption = GetTotalPhys(); lblProcValue->Caption = GetCPUSpeed(); }