如何在delphi 中模拟按键输入中文！ ( 积分: 20 )

<br>procedure SendKeys(H: THandle; sSend: string);<br>var<br> &nbsp;i: integer;<br> &nbsp;ch: byte;<br>begin<br> &nbsp;SetFocus(H);<br> &nbsp;if H = 0 then Exit;<br> &nbsp;i := 1;<br> &nbsp;while i &lt;= Length(sSend) do begin<br> &nbsp; &nbsp;ch := byte(sSend[i]); //send string<br> &nbsp; &nbsp;if Windows.IsDBCSLeadByte(ch) then begin<br> &nbsp; &nbsp; &nbsp;Inc(i);<br> &nbsp; &nbsp; &nbsp;SendMessage(H, WM_IME_CHAR, MakeWord(byte(sSend[i]), ch), 0);<br> &nbsp; &nbsp;end<br> &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp;SendMessage(H, WM_IME_CHAR, word(ch), 0);<br> &nbsp; &nbsp;Inc(i);<br> &nbsp;end;<br>end;<br>