quit.prg

来自「办公室档案管理系统源代码」· PRG 代码 · 共 11 行

if messagebox('请确认是否退出？',292,'档案管理系统')=6
wait "正在退出检测报告管理系统" window nowait
wait clear
on error
clear events
else 
return

endif