建立互斥程序代码 一般的程序用不到

  //-----------------------------
  {
    判断是否已经在运行了一个程序,由于程序老是启动不起来,客户也很着急,老是需要点击多次才能出来,所以这里去掉,增强客户体验
    大不了,启动了多个程序,客户关掉便是,不能影响客户体验.
  }
//  MyHandle := CreateMutex(nil,True,'MyShopdaxiaMain');//创建互斥句柄
//  if GetLastError = ERROR_ALREADY_EXISTS then
//  begin
//    CloseHandle(MyHandle);//关闭互斥句柄
//    Application.Terminate;{终止程序}
//    Exit;{退出,如果不加这行会造成程序闪一下再消失}
//  end;