我用aw7.0做的课件显示分辨率是是800*600，想使其检测用户分辨率，如果不是就改成800*600，进行全屏显示，退出时在将用户的分辨率改成原来的值，可是退出时无法实现改回原来的分辨率呢，请各位帮忙看一下，哪出来了问题。谢谢啊

UserScreenWidth:=ScreenWidth--保存用户监视器的宽度　　　　
UserScreenHeight:=ScreenHeight--保存用户监视器的高度
UserScreenDepth:=ScreenDepth--保存用户监视器的颜色深度
alHideTaskBar()--隐藏任务栏
alChangeRes(800,600,32)--改变屏幕分辨率
ResizeWindow(800,600)--调整窗口大小


alShowTaskBar()--显示任务栏
alChangeRes(userScreenWith,UserScreenHeight,UserScreenDepth)--恢复使用者原来的分辨率
Quit()--退出