helpunit.cpp

来自「足彩专用程序 亚洲盘口水位—欧洲标盘精确换算表。」· C++ 代码 · 共 37 行

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

#include <vcl.h>
#pragma hdrstop

#include <stdio.h> 
#include "HelpUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
THelpForm *HelpForm;
//---------------------------------------------------------------------------
__fastcall THelpForm::THelpForm(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall THelpForm::FormShow(TObject *Sender)
{
	TMemoryStatus MS;
  MS.dwLength = sizeof(MS);
  GlobalMemoryStatus(&MS);
  pRes->Caption = FormatFloat((AnsiString)"#,###'KB'",MS.dwTotalPhys/1024);
  LPSTR lpMemLoad = new char[5];
  sprintf(lpMemLoad, "%d%%",MS.dwMemoryLoad);
  fRes->Caption = (AnsiString)lpMemLoad;
  delete []lpMemLoad;	
}
//---------------------------------------------------------------------------

void __fastcall THelpForm::StaticText1Click(TObject *Sender)
{
	Close();	
}
//---------------------------------------------------------------------------