about.cpp

骨灰盒规范化果腹

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

#include "About.h"
#include <shellapi.h>
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TAboutBox *AboutBox;
//---------------------------------------------------------------------
__fastcall TAboutBox::TAboutBox(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TAboutBox::lbHomePageClick(TObject *Sender)
{
        ShellExecute(Handle,NULL,lbHomePage->Caption.c_str(),NULL,NULL,SW_SHOWDEFAULT);
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::lbEMailClick(TObject *Sender)
{
        ShellExecute(Handle,NULL,AnsiString("mailto:"+lbEMail->Caption).c_str(),NULL,NULL,SW_SHOWDEFAULT);
}
//---------------------------------------------------------------------------