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

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