如何让程序只运行一次(BCB)

看了网上GOOGLE到的代码后修改了一下，使用互斥……

只需修改Project1.cpp中相应的地方即可。

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

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Main.cpp", MainForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
HANDLE hMutex = CreateMutex( 0, false, Application->Title.c_str() );
if ( hMutex )
{
if ( GetLastError() == ERROR_ALREADY_EXISTS )
{
CloseHandle(hMutex);
Application->Terminate();
}
}
try
{
Application->Initialize();
Application->CreateForm(__classid(TMainForm), &MainForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
CloseHandle(hMutex);
return 0;
}
//---------------------------------------------------------------------------