本帖最后由 痒痒 于 2009-11-9 08:20 编辑 $MSG=MsgBox(1+32,"确认安装","确认安装全部字库")
Select
Case $MSG=1
RunWait(@ScriptDir&"\博洋\博洋.exe")
RunWait(@ScriptDir&"\汉鼎\汉鼎.exe")
RunWait(@ScriptDir&"\创艺\创艺.exe")
RunWait(@ScriptDir&"\经典\经典.exe")
RunWait(@ScriptDir&"\汉仪\汉仪.exe")
RunWait(@ScriptDir&"\精品英文字体\精品英文字体.exe")
RunWait(@ScriptDir&"\文鼎\文鼎.exe")
RunWait(@ScriptDir&"\叶根友\叶根友.exe")
RunWait(@ScriptDir&"\方正\方正.exe")
RunWait(@ScriptDir&"\华文\华文.exe")
RunWait(@ScriptDir&"\迷你\迷你.exe")
Case $MSG=2
Exit
EndSelect
以上代码中最后一句:Case $MSG=2
Exit
是取消安装字体,点了取消后,就会连主界面都退出,EXIT那里应该换成什么才会只是关闭当前的Msgbox而不退出主程序。 |