用Delphi怎样模仿Vb的SendKeys向有输入焦点的应用程序发送“中文的字符串”

Question

用SendMessage(...WM_IME_CHAR....)把.

Answer 1

to Kingron
  能否说详一点

Answer 2

不是 WM_IME_CHAR
是 WM_IME_CHARprocedure TForm1.Button1Click(Sender: TObject);
var
  sChars: string;
  cChar: Char;
begin
  sChars := '你';
  cChar := sChars[1];
  SendMessage( Edit1.Handle, WM_CHAR, Ord( cChar ), 0 );
  cChar := sChars[2];
  SendMessage( Edit1.Handle, WM_CHAR, Ord( cChar ), 0 );end;

Answer 3

惭愧惭愧，写错了。不是 WM_IME_CHAR
是 WM_CHAR 
中英文无关。

Answer 4

Delphi的光盘中就带一个模拟VB的SendKey的例子啊。

Answer 5

to zzzar
  能否举一小例子？

Answer 6

to zzzar
  能否举一小例子？