如何防止窗体重复打开(程序或表单重复运行)?

来源:互联网 发布:日语阅读软件推荐 编辑:程序博客网 时间:2024/05/10 19:00

DECLARE INTEGER FindWindow IN Win32API STRING,STRING
*Declare integer FindWindow IN USER32.DLL STRING,STRING &&或用此句
LOCAL cTitle
cTitle="窗体的Caption"
IF FindWindow(0,cTitle)<>0
MESSAGEBOX("程序已运行!",48,"信息提示")
RETURN
*QUIT
ENDIF
CLEAR DLLS