适应屏幕分辨率

lygcw9602

于 2015-01-31 14:39:41 发布

阅读量689

点赞数

分类专栏： WIN API 函数应用

WIN API 函数应用专栏收录该内容

2 篇文章

订阅专栏

IF SYSMETRIC(1)=1024 AND SYSMETRIC(2)=768
    x=800
    y=600
    lcDevMode=replicate(chr(0),156)
    declare integer EnumDisplaySettings IN user32 integer,integer,string @
    declare integer ChangeDisplaySettings IN user32 string @,integer
    =EnumDisplaySettings(0,0xFFFFFFFF,@lcDevMode)
    lcDevMode=stuff(lcDevMode,109,8,chr(x%256)+chr(x/256)+chr(0)+chr(0)+chr(y%256)+chr(y/256)+chr(0)+chr(0))
    =ChangeDisplaySettings(@lcDevMode,1)
ELSE
    x=1024
    y=768
    lcDevMode=replicate(chr(0),156)
    declare integer EnumDisplaySettings IN user32 integer,integer,string @
    declare integer ChangeDisplaySettings IN user32 string @,integer
    =EnumDisplaySettings(0,0xFFFFFFFF,@lcDevMode)
    lcDevMode=stuff(lcDevMode,109,8,chr(x%256)+chr(x/256)+chr(0)+chr(0)+chr(y%256)+chr(y/256)+chr(0)+chr(0))
    =ChangeDisplaySettings(@lcDevMode,1)
ENDif