readme.txt

改变分辨率.zip VFP原码,可在运行时改变屏幕分分辨率

xw=SYSMETRIC(1)
xh=SYSMETRIC(2)
if xw!=800 
 yn=messagebox('当前显示分辨率是'+allt(str(xw))+'*'+allt(str(xh))+'，本程序运行时的最佳显示模式是800*600，是否需要更改当前显示模式？',4+32+256,'系统提示')
 if yn=6
  
  Declare integer Fblz In "fBL.dll" integer x,integer y
  x=800
  y=600
  xx=Fblz(x,y)
  clea dlls
 endif
endif