|
理顺了
ENVI^ EnviMode=1
ENVI^ FORCELOCAL=1
ENVI &&TYU=0
CALL A
_SUB A
ENVI &&qued=0
CALL 窗口1
FIND $%&qued%=0, EXIT _SUB
IFEX $%&TYU%=1,关机
IFEX $%&TYU%=2,重启
_END
_SUB 窗口1,W300H172,试验,
CHEK ZDYDXF,L20T43W350H18,试验,,1
RADI SHUT,L100T70W62H20,关机,,0
RADI RB,L180T70W62H20,重启,,1
ITEM ,L146T105W60H25,确定,TEAM ENVI &qued=1|CALL 窗口1-A
ITEM ,L215T105W60H25,取消,KILL \,
_END
_SUB 窗口1-A
ENVI @窗口1.Visible=0
IFEX $%ZDYDXF.Check%=1,EXEC =%CurDir%\1.exe! exec =%CurDir%\2.exe
IFEX $%SHUT.Check%=1,ENVI &TYU=1
IFEX $%RB.Check%=1,ENVI &TYU=2
KILL 窗口1
_END
|
|