如何将一个“中文字”发送到当前的窗口是的文本框中(50分)

如何将一个“中文字”发送到当前的窗口是的文本框中
但是不能使用粘贴、复制的快捷键的模拟按键法。。。
请不吝赐教。。

可以采用setwindowtext(hwnd,??),具体我忘记了,但是有一个问题好象是跟字符串的
长度有关,如果长度为MOD 4=0,则可以不出现乱码,否则会出现!自己看看吧!

sendmessage( edit1.Handle ,wm_settext,0,integer (pchar('我是好人！')) );

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Handle: Integer;
tmpHandle,tmphandle1: Integer;
rchedt:trichedit;
begin

rchedt:=TrichEdit(PopupMenu1.PopupComponent);

Handle := FindWindow(nil,'对话模式');
if Handle<>0 then
begin
tmpHandle := Handle;
tmpHandle1 := Handle;
EnumChildWindows(Handle,@GetButtonHandle,Integer(@Handle));
FButtonHandle := Handle;

EnumChildWindows(tmpHandle,@GetEditHandle,Integer(@tmpHandle));
FTextHandle := tmpHandle;
//showwindow(tmpHandle1,SW_HIDE);
//setwindowlong(tmpHandle1,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

end;
SendMessage(FTextHandle,WM_SETTEXT,0,Integer(pchar(rchedt.text)));
SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);
SendMessage(FButtonHandle,WM_LBUTTONUP,0,0);
rchedt.clear;
end;

用SendMessage()就ok了﹗

是的，各位仁兄，用Sendmessage是可以往文本框中输入的，
但是，如果像是我现在正在打字的这个框框中（网页上的文本框）
就不可能实现了。