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

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

 
posted @ 2007-03-17 09:43  attitudedecidesall  Views(196)  Comments(0Edit  收藏  举报