纯API函数创建进程互斥体实现程序不能多开

ret ＝ OpenMutex (2031617, 1, “XXNBbin”)
调试输出 (ret)
.如果 (ret ≠ 0)
信息框 (“我已经启动啦”, 0, )
结束 ()
.否则
CreateMutex (nil, 1, “XXNBbin”)