// HSP 2.61用コード #include "llmod.as" #include "unicode.as" #module #define WM_SETTEXT 0x000C #deffunc objprmW int, val mref p1, 0 mref p2, 25 _hspobjhandle p1 handle = stat if handle == 0 : return -1 getptr ptr, p2 if ptr == 0 : return -2 prm = handle, WM_SETTEXT, 0, ptr dllproc "SendMessageW", prm, 4, D_USER return #global in = "abcあいうえお" strlen size, in sdim out, size*2+2 to_uni out, in, size + 1 sdim dummy, 1024 objsize 320, 24 input dummy objprmW stat, out stop