这样设置为什么还是原来窗口的大小？
检测并调整分辨率
N_width:=640
N_height:=480
N_depth:=32
N_dis:=75
Width:=ScreenWidth
Height:=ScreenHeight
Depth:=ScreenDepth
dis:= alGetCurrentDispSet()
if((Depth<>N_depth)|(Width<>N_width)) then
alChangeRes(N_width,N_height,N_depth,N_dis)
Changed:=1
alHideTaskBar()
else
GoTo(IconID@"课件主体")
end if
恢复原来的分辨率
if Changed=1 then alChangeRes(Width,Height,Depth,dis)
alShowTaskBar()
Quit()

是不是你的函数的版本有问题？
altools.u32 2.0版本才支持分辨率的修改