最简单的方法是用一个相关的外挂U32，例如altools.u32、Budapi.u32等
这里推荐用Budapi.u32(因为比较方便且稳定)

运行时可以初试化屏幕: (用一个计算图标)
SetWindowPos(WindowHandle,-1,0,0,0,0,3)---演示窗口在最顶层
WriteExtFile(RecordsLocation^"skcyh.ini","演示系统设置"---采用写文件的方式记录原来系统的显示参数,这是用在有文件跳转的情况下(通常也可以写注册表)，如果是单文件演示可以直接要免去此部分
screenw:=ScreenWidth----记录变量参数
screenh:=ScreenHeight
screend:=ScreenDepth
baWriteIni("显示分辨率","width",screenw,RecordsLocation^"skcyh.ini" )--写配置文件
baWriteIni("显示分辨率","Height",screenh,RecordsLocation^"skcyh.ini" )
baWriteIni("显示分辨率","Depth",screend,RecordsLocation^"skcyh.ini" )
if ((screenw<>800)|(screenh<>600)|(screend<>16)) then------检测并设置目标显示参数
setdisplay:=1 ---此为开关参数，记录了系统显示参数的变化情况
baSetDisplay(800,600,16)
else
setdisplay:=0
end if

程序运行后退出时恢复系统显示参数:
screenw:=baReadIni("显示分辨率","width",screenw,RecordsLocation^"skcyh.ini" )
screenh:=baReadIni("显示分辨率","Height",screenh,RecordsLocation^"skcyh.ini" )
screend:=baReadIni("显示分辨率","Depth",screend,RecordsLocation^"skcyh.ini" )
if setdisplay=1 then
baSetDisplay(screenw,screenh,screend)
end if
Quit()