about.cpp

本人用BCB编写的扫雷小游戏

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

#include <vcl.h>
#pragma hdrstop

#include "About.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TAboutForm *AboutForm;
//---------------------------------------------------------------------------
__fastcall TAboutForm::TAboutForm(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::FormShow(TObject *)
{
  TMemoryStatus * MS = new TMemoryStatus(); 

  GlobalMemoryStatus(MS);

  Label_lblMemory->Caption = "Windows 的可用物理内存 : " + FormatFloat("#,### KB", MS->dwTotalPhys/1024);
  delete MS;
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Label_EmailMouseEnter(TObject *)
{
  Label_Email->Font->Color = clRed;
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Label_EmailMouseLeave(TObject *)
{
  Label_Email->Font->Color = clActiveCaption;
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Label_QQMouseEnter(TObject *)
{
  Label_QQ->Font->Color = clRed;
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Label_QQMouseLeave(TObject *)
{
  Label_QQ->Font->Color = clActiveCaption;
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Label_QQClick(TObject *)
{
  ShellExecute(AboutForm->Handle,"OPEN",
    "http://search.tencent.com/cgi-bin/friend/user_show_info?ln=32203367",
    NULL,NULL,SW_SHOW);
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Label_EmailClick(TObject *)
{
  AnsiString s;

  s = "mailto:Todd Lau<[e-mail]>";
  s += "?subject=About Program";
  s += "&body=Hello,Mr. Todd Lau";
  
  ShellExecute(AboutForm->Handle ,"OPEN",
    s.c_str(),
    NULL,NULL,SW_SHOW);
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Label_MSNClick(TObject *)
{
  ShellExecute(AboutForm->Handle,"OPEN",
    "http://spaces.msn.com/members/nuaa",
    NULL,NULL,SW_SHOW);
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Label_MSNMouseEnter(TObject *)
{
  Label_MSN->Font->Color = clRed;
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Label_MSNMouseLeave(TObject *)
{
  Label_MSN->Font->Color = clActiveCaption;
}
//---------------------------------------------------------------------------