在做
多媒体演示时,我们习惯做成640X480分辨率,但运行时的环境不一定是这一分辨率，无法满屏显示。因此会使我们的
作品显示效果大打折扣，大大影响演示效果。因些我们可以使用budapi.u32外部函数将用户屏幕分辨率和设计时的调成一致。
程序
流程如图所示：
“更改分辨率”计算图标内容为：
------------------------
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
----------------------------
[url=http://freehost21.websamba.com/ulovm/ShowPost.asp?id=175]点这里下载源程序[/url]
作者：廖宜峰
galyfeng@163.com
http://gaoansixiao.ku.net
2004.4.15
