行业应用

开发平台：

VFP

checktorun.prg：源码内容

							* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: CHECKTORUN.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 PARAMETER CPROGRAM , CFUNCTION
 ISEXISTTOOLS = (TYPE('oToolsBar') = 'O' AND  .NOT. ISNULL(OTOOLSBAR))
 DO CASE 
 CASE LEFT(CFUNCTION,1) = '1'
  &cProgram
 CASE LEFT(CFUNCTION,1) = '2'
 IF ISEXISTTOOLS
  OTOOLSBAR.SETALL('Enabled',.F.)
 ENDIF 
  &cProgram
 CASE LEFT(CFUNCTION,1) = '3'
 IF INLIST(.T.,LF11,LF12,LF13,LF14,LF15,LF21,LF22,LF23,LF31,LF32,LF33,LF34,LF35)
  MESSAGEBOX('在运行此程序前，请先退出其它正在运行的程序！',16,'警告')
 ELSE 
 IF ISEXISTTOOLS
     OTOOLSBAR.SETALL('Enabled',.F.)
 ENDIF 
  &cProgram
 ENDIF 
 ENDCASE 
*

						