让程序在同一台机器上互斥

在程序开始时创建互斥体：
  HANDLE hMutex = CreateMutex(NULL,true,/"CLOSESETTIME/");
  if(GetLastError()==ERROR_ALREADY_EXISTS)
  {
    Application->MessageBox(/"“系统关机应用程序”在本机中//n/"
     /"已经打开，无须再打开！/", /"警告/", MB_OK +    MB_ICONWARNING);              
          return 0;
  }

在程序结束时释放互斥体：
  //释放互斥体
  ReleaseMutex(hMutex);