www.pudn.com > 04001.rar > Unit1.cpp


//--------------------------------------------------------------------------- 
#include  
#pragma hdrstop 
 
#include "Unit1.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::FormActivate(TObject *Sender) 
{ 
  int ii; 
  if(ParamCount()>=1) 
  { 
    for(ii=1;ii<=ParamCount();ii++) 
    { 
      ShowMessage(ParamStr(ii)); 
    } 
  } 
} 
//---------------------------------------------------------------------------