refabout.cpp

《C++ Builder 5技术内幕》一书附带的程序源代码

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "refabout.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TAboutBox *AboutBox;
//---------------------------------------------------------------------
__fastcall TAboutBox::TAboutBox(TComponent* AOwner)
	: TForm(AOwner)
{
  m_osVersionInfo.dwOSVersionInfoSize = sizeof( OSVERSIONINFO );
  if( GetVersionEx( &m_osVersionInfo ) )
  {
    switch( m_osVersionInfo.dwPlatformId )
    {
      case VER_PLATFORM_WIN32s:
      	LabelOS->Caption = AnsiString( "Win32s on Windows 3.1" );
        break;
      case VER_PLATFORM_WIN32_WINDOWS:
      	LabelOS->Caption = AnsiString( "Win32 on Windows 95" );
        break;
      case VER_PLATFORM_WIN32_NT:
      	LabelOS->Caption = AnsiString( "Windows NT" );
        break;
    }
    LabelOS->Caption = LabelOS->Caption
                     + AnsiString( " " )
                     + AnsiString( ( int )( m_osVersionInfo.dwMajorVersion ) )
                     + AnsiString( "." )
                     + AnsiString( ( int )( m_osVersionInfo.dwMinorVersion ) )
                     + AnsiString( " ( Build: " )
                     + AnsiString( ( int )( m_osVersionInfo.dwBuildNumber ) )
                     + AnsiString( " )" );
  }
  GlobalMemoryStatus( &m_msMemoryStatus );
  AnsiString asMem = AnsiString( ( int )( m_msMemoryStatus.dwAvailPhys / 1024 ) );
  int nLen = asMem.Length();
  for( int i=1; i<=(nLen-1)/3; i++ )
    asMem.Insert( AnsiString( "," ), nLen - 3*i + 1 );
  LabelMemNum->Caption = asMem + AnsiString( " KB" );
}
//---------------------------------------------------------------------