API禁止多个程序运行实例

易语言 2020-09-29 22:03:23

API禁止多个程序运行实例

hHandle = OpenMutex (#READ_CONTROL, 假, 取执行文件名 ())
.如果 (hHandle = 0)
hHandle = CreateMutex (0, 假, 取执行文件名 ())
.否则
MessageBox (取窗口句柄 (), “程序已运行!”, “软件提示”, 64)
结束 ()