检测程序是否重复运行

.子程序 是否重复运行, 逻辑型, 公开, 重复运行返回真；否则返回假
.局部变量 句柄, 整数型

句柄 ＝ winapi (, “CreateMutexA”, 3, 0, 真, 到文本 (取随机数 (1, 100000000)) ＋ “易语言OD破解安卓开发群 157949390”)
.如果真 (winapi (, “WaitForSingleObject”, 3, 句柄, 100) ＝ 258)
winapi (, “ReleaseMutex”, 3, 句柄)
winapi (, “CloseHandle ”, 3, 句柄)
返回 (真)