禁止程序多次运行模块

.如果真 (是否为空 (互斥体文本))
互斥体文本 ＝ “近在眼前”
.如果真结束
.如果 (OpenEventA (2031619, 假, 互斥体文本) ≠ 0)
结束 ()
.否则
CreateEventA (0, 假, 假, 互斥体文本)
这样就可以达到防止用户第二次启动此程序的目的了
当然你也可以把它编辑成一个类 或生成一个dll文件 调用它。