unit1.cpp

来自「C++ Builder程序员学习数据结构,里面涵盖了所有你要学习的数据结构的所有」· C++ 代码 · 共 219 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String NewFileName;
int i;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd1_1p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N10Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd2_1p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N11Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd2_2p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N12Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd2_3p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N13Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd2_4p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N15Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd3_1p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N16Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd3_2p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N17Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd3_3p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N18Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd3_4p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N14Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd4_1p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N19Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd4_2p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N20Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd4_3p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N21Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd4_4p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N22Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd5_1p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N23Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd5_2p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N24Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd5_3p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N25Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd5_4p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N26Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd6_1p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N27Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd6_2p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N28Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd6_3p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N29Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd6_4p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N33Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd8_1p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N34Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd8_2p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N35Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd8_3p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N36Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"cd8_4p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N30Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"ch7_1p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N31Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"ch7_2p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N32Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"ch7_4p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::N37Click(TObject *Sender)
{
  NewFileName=ExtractFilePath(Application->ExeName)+"ch7_3p.exe";
  i=WinExec(NewFileName.c_str(),SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------