query.cmd

来自「字体缩放显示」· CMD 代码 · 共 16 行

/* */
call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
call SysLoadFuncs

app = "PM_Font_Drivers"
key = "TRUETYPE"

val = SysIni('USER', app, key)

if val = "ERROR:" then val = "none"
/* strip the terminating NULL character */
else val = substr(val, 1, pos(d2c(0), val) - 1)

say 'The current TrueType driver is ' || val
pause