ll_libload imm, "imm32.dll"
ll_getproc ImmGetContext, "ImmGetContext", imm
ll_getproc ImmGetConversionStatus, "ImmGetConversionStatus", imm
ll_getproc ImmReleaseContext, "ImmReleaseContext", imm
#module
#deffunc initime
mref bmscr, 67
ll_callfunc bmscr.13, 1, ImmGetContext@ : ll_ret himc
return
#deffunc exitime onexit
if himc {
mref bmscr, 67
prm = bmscr.13, himc
ll_callfunc prm, 2, ImmReleaseContext@
}
return
#deffunc getimemode val, val
mref inputmode, 16 : mref changemode, 17
prm = himc
ll_getptr inputmode : ll_ret prm.1
ll_getptr changemode : ll_ret prm.2
ll_callfunc prm, 3, ImmGetConversionStatus@
return
#global
initime
input test, 200, 25
onkey *push
stop
*push
getimemode i, c
title "入力モード=" + i + " 変換モード=" + c
stop
|