▲▲请问sendkey函数如何发送汉字？？

Question

以下用一个时钟，可以将edit1中的内容发送到当前活动文本框，请教：要如何才能发送汉字呢？
procedure TForm1.Timer1Timer(Sender: TObject);
var I:integer;
    str:string;
begin
  for i:=1 to length(edit1.Text) do
 begin
 
  str:=copy(edit1.Text,i,1);  sendkeys(pchar(str),false); //发送字符串
 
 end;
  //循环完毕
form1.Timer1.Enabled:=false;
end;

Answer 1

sendkeys肯定不行
只能发键盘码找到活动文本框的句柄
然后发消息就行了

Answer 2

我没找到SENDKEYS，不好意思。提示一下，SENDMESSAGE TO SETTEXT!

Answer 3

我是没找到SENDKEYS，不好意思，可以发消息给当前文本嘛。SETTEXT

Answer 4

Var
   hEdit, HWindow   : THandle;
   szText           : String;Begin
   HWindow := FindWindowEx(0, 0, 'TForm1', Nil);
   //这里写想发送的窗体类和标题，nil表示全部
   If HWindow <> 0 Then
      Begin
         //这里写想发送的文本框的类和文本，nil表示全部
         hEdit := FindWindowEx(HWindow, 0, 'TEdit',
            Nil);
         If hEdit <> 0 Then
            Begin
               szText := 'success! 发送成功！';
               //发送消息
               SendMessage(hEdit, WM_SETTEXT, 256,
                  integer(szText));
            End;
      End;
End;