C++Builder 程序只运行一个实例

该函数能设置程序只运行一个实例；  参数title是程序实例的名称。
bool RunOnlyOnce(AnsiString title)
{
        Application->Title=title.c_str();
        CreateMutex(NULL,False,title.c_str());
        if(GetLastError()==ERROR_ALREADY_EXISTS)
        {
                ShowMessage("该程序已经运行!");
                return false;
        }
        return true;
}