Global gADisplay

on ChangeDisplay
if VoidP(gADisplay) then
gADisplay=script("ADisplay").new()
gADisplay.changeTo(800, 600, 32, 75, 0)--分辨率水平值，分辨率垂直值，颜色深度，刷新率
end if
end
on prepareMovie
if the runmode <>"Author" then
ChangeDisplay
else
alert "发布成Projector看效果"
end if
end
on ExitPro
if (not VoidP(gADisplay)) then
gADisplay.Restore()--还原
end if
halt
end

在XP底下不修改分辨绿：（

我这里没有xp,不好意思

改用budapi吧，它也可以修改分辩率的