(view source code of getres.cmd as plain text)
/* Display screen resolution settings */
if RxFuncQuery( "SysLoadFuncs" ) <> 0 then do
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
end
res = SysIni( "USER", "PM_DISPLAYDRIVERS", "DEFAULTSYSTEMRESOLUTION" )
if res = "ERROR:" then do
say
say "Error getting resolution"
EXIT 1
end
horz = c2d( reverse( substr( res, 1, 4 ) ) )
vert = c2d( reverse( substr( res, 5, 4 ) ) )
cols = c2d( reverse( substr( res, 9, 4 ) ) )
say
say "Resolution: "||horz||" x "||vert||" @ "||cols||" colors"
page last modified: 2024-04-16; loaded in 0.0068 seconds