.如果真 (打开事件同步对象 (2031619, 假, “myappname”) ≠ 0) ' "myappname"可以是任何文本,但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。
信息框 (“不能重复运行本程序!”, 0, )
销毁 ()
返回 ()
.如果真结束
创建事件同步对象 (0, 假, 假, “myappname”)
.如果真 (打开事件同步对象 (2031619, 假, “myappname”) ≠ 0) ' "myappname"可以是任何文本,但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。
信息框 (“不能重复运行本程序!”, 0, )
销毁 ()
返回 ()
.如果真结束
创建事件同步对象 (0, 假, 假, “myappname”)