www.pudn.com > SingleNumber.rar > Unit3.cpp

//--------------------------------------------------------------------------- 
 
#include  
#pragma hdrstop 
 
#include "Unit3.h" 
#include "Unit1.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm3 *Form3; 
//--------------------------------------------------------------------------- 
__fastcall TForm3::TForm3(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
 
 
void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action) 
{ 
    Action=caFree;         
} 
//--------------------------------------------------------------------------- 
 
 
void __fastcall TForm3::Label3Click(TObject *Sender) 
{ 
    ShellExecute(Handle,"Open","mailto:xsmhero@21cn.com",NULL,NULL,SW_SHOW);               
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm3::Label7Click(TObject *Sender) 
{ 
     AnsiString URL_="Explorer.exe http://www.xsmhero.blog.163.com"; 
      const char *my=URL_.c_str(); 
      WinExec(my ,SW_SHOW);           
} 
//---------------------------------------------------------------------------