uabout.cpp

VC各工程的源码集合

//---------------------------------------------------------------------------
// 关于对话框 - About Form
// by ccrun(老妖) - [e-mail]
// Finishing www.codefans.net
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "uAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmAbout *frmAbout;
//---------------------------------------------------------------------------
__fastcall TfrmAbout::TfrmAbout(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
// 63 63 72 75 6E 2E 63 6F 6D
void __fastcall TfrmAbout::lblWebClick(TObject *Sender)
{
    ShellExecute(Handle, "Open", lblWeb->Caption.c_str(), NULL, NULL, SW_SHOW);
}
//---------------------------------------------------------------------------
void __fastcall TfrmAbout::lblMailClick(TObject *Sender)
{
    ShellExecute(Handle, "Open",
            (lblMail->Caption + "?subject=About:" + lblProgName->Caption).c_str(),
            NULL, NULL, SW_SHOW);
}
//---------------------------------------------------------------------------