防止一个程序多开的四种方式

连续赋值 (取空白文本 (255), 窗口类名, 窗口标题)
GetClassName (窗口句柄, 窗口类名, 255)
GetWindowText (窗口句柄, 窗口标题, 255)
.如果真 (窗口类名 ＝ 查找窗口类名)
i ＝ i ＋ 1
.如果真 (i ＞ 1)
信息框 (“该程序已经运行！请勿重复打开！”, 0, , )
结束 ()
.如果真结束

.如果真结束
窗口句柄 ＝ FindWindowEx (0, 窗口句柄, NullString, NullString)