因为小弟是初学者~小弟不知道这段代码怎么用~~我需要详细的步骤（我不知道这样插入代码）~~谁能告诉一下，拜托，急需啊~~~~谢谢我已经下了budapi这个东西，还是不会）





“更改分辨率”计算图标内容为：
------------------------
x:=ScreenWidth --判断原屏幕宽
y:=ScreenHeight--判断原屏幕高
colo:=ScreenDepth--判断原屏幕色彩,
if x<>640|y<>480 then--如果以方屏幕不是640x480
nu:=SystemMessageBox(WindowHandle,
"您现在的分辨率是"^x^"×"^y^"，您要改成640×480吗？", "信息", 321)
-- nu是自定变量,如果nu=1表示用户选择了确定, 如果nu=2表示用户选择了取消
if nu=1 then
baSetDisplay( 640 , 480 , 16, "temp" , 1
)--如果用户选择了确定,就将屏幕调为640x480 ,这个basetdisplay就来自budapi
end if
else--否则不用调整
SystemMessageBox(WindowHandle, "您现在的分辨率是640×480。",
"信息", 64) -- 1=OK
end if
--------------------------
“改回分辨率”计算图标内容为：
--------------------------
if nu<>2 then--如果前面选择了确定
SystemMessageBox(WindowHandle, "现在改回原分辨率！", "信息", 64) --
1=OK
baSetDisplay( x , y , 16 , "temp" , 1 )--就调回原分辨率
Quit()
else
SystemMessageBox(WindowHandle, "您没有调整分辨率！", "信息", 64) --
1=OK
Quit()
end if
----------------------------

看一下我新传上的实例