我以解决这个问题,谢谢指点。
我用的方法:
先调用Budapi.u32外挂函数
初试化屏幕在演示窗口在最顶层加计算图标内容为:
baWriteIn("800,600","Depth",screend,RecordsLocation^"skcyh.ini")
if ((screenw<>800)|(screenh<>600)|(screend<>16)) then
setdisplay:=1
baSetDisplay(640,480,16)
else
setdisplay:=0
end if
且初始设为0 第二初始设1
程序运行后退出时恢复系统显示参数:
baSetDisplay(800,600,32)
setdisplay:=0
Quit()