以下是引用kangss在2023-10-10 11:04:06的发言：

禁止程序重复运行的又一方法
DECLARE integer CreateEventA IN WIN32API integer,long,long,string
DECLARE integer OpenEventA IN WIN32API integer,long,string
IF OpenEventA(2031619, .F.,myappname)0 &&myappname可以是任意文本，最好要长一点。
    =MESSAGEBOX("程序已经在运行，不要浪费资源呵！", 48, "信息提示")
    RETURN .F.
ELSE
    CreateEventA(0, .F., .F.,myappname)
ENDIF

以下是引用iswith在2023-10-10 17:57:33的发言：

互斥，它少了一步。。。

以下是引用csyx在2023-10-10 21:06:28的发言：


是的，QUIT 前应加一条 CloseHandle

以下是引用星光悠蓝在2023-10-10 10:16:07的发言：

用两个值来记录，一个记录是否运行，另一个记录是否正常退出，下次如果检测为非正常退出，则可正常运行。

以下是引用laowan001在2023-10-11 08:41:46的发言：


我脑子都转筋了还是没想明白
程序执行起来，是否运行=是，正常退出=否，这时断电了，那么再执行程序时看这两个变量的话，还是运行且未退出状态，仍然没法判断是否重复了

以下是引用yiyanxiyin在2023-10-11 09:42:38的发言：




这种方法是不行的, 因为非正常退出你没法记录状态, 和正在运行没法区别, 你可以搞个心跳, 比如每一秒记录一下当前时间(心跳时间), 表示它没死,  程序启动时检查心跳时间, 如果和现在的时间间隔超过2秒就允许启动,否则就不让启动


当然, 微软有标准api来判断, 产品里面还是使用标准的来吧, 自己琢磨搞着玩可以试试自己的方法