=
If Sysmetric(1)<1024
 Local lcDevMode
 lcDevMode=Replicate(Chr(0),156)
 Declare Integer EnumDisplaySettings In user32 Integer,Integer,String @
 Declare Integer ChangeDisplaySettings In user32 String @,Integer
 EnumDisplaySettings(0,4294967295,@lcDevMode)
 lcDevMode=Stuff(lcDevMode,109,8,Chr(1024%256)+Chr(1024/256)+Chr(0)+Chr(0)+Chr(768%256)+Chr(768/256)+Chr(0)+Chr(0))
 ChangeDisplaySettings(@lcDevMode,1)
 Clear Dlls [ChangeDisplaySettings]
 Clear Dlls [EnumDisplaySettings]
Endif
本文来源于【梅子论坛临时文章系统】 网站地址：http://www.meizvfp.com/article.asp?id=11