J
jhddx
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tautochat.SendDBCSString2(hFocus: HWND; const sSend: string); //发送字符var k : integer; ch : byte;begin k := 1; while k <= Length(sSend) do begin ch := byte(sSend[k]); if Windows.IsDBCSLeadByte(ch) then begin Inc(k); postMessage(hFocus, WM_IME_CHAR, MakeWord(byte(sSend[k]), ch), 0); end else postMessage(hFocus, WM_IME_CHAR, word(ch), 0); Inc(k); end;end;代码如上,对大多数文本编辑框,能正确发送中文和英文,但有一个游戏就是发不了中文,能发英文和数字...请问下这是什么原因呢?