BCB 程序重新加载,重启,自动打开,关闭程序后自动再次打开这个程序

把下边代码放到一个按钮里,按一下这个按钮,然后关闭程序,会自动再次打开这个程序

try
{
      Application->Initialize();
      Application->CreateForm(__classid(TForm1),&Form1);
      Application->Run();
      ShellExecute(NULL,"open",Application->ExeName.c_str(),NULL,NULL,SW_SHOWNORMAL);
}
catch(Exception &e)
{

}

黑色头发:http://heisetoufa.iteye.com/