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