打开Project1.cpp,插入下面一段话（夹在////////////////////////////////////////////////段中）
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Application->Title = "网址管理专家";
CreateMutex(NULL,False,"网址管理专家");
if(GetLastError()==ERROR_ALREADY_EXISTS)
{
ShowMessage("网址管理专家 已经运行了,请查看屏幕左下角的小条子!");
return 0;
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TForm2), &Form2);
Application->CreateForm(__classid(TForm3), &Form3);
Application->CreateForm(__classid(TForm4), &Form4);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
其功能：
1、设程序标题名
2、检测同名程序
3、存在错误就退出
正文