*——避免多次运行程序
*——声明API函数“FindWindow”
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
lpWindowName="培训管理系统"
IF .NOT. FindWindow(0,lpWindowName)==0 &&寻找窗口标题
=MESSAGEBOX("程序已经运行了",48,"提示信息")
QUIT
ENDIF
_Screen.Caption=lpWindowName