请帮忙测试代码,分数大大的. 300分(200分)

例例例例如你好例如你好例如你好例如你好
这一次又对了，真不知为什么？
我正在测试写字板和Word......

Try this:
unit Unit2;
interface
uses
Windows, Messages;
procedure SendKeys(sSend:string);
implementation
procedure SendKeys(sSend:string);
var
i:integer;
Sstr:string;
focushld,windowhld:hwnd;
threadld:dword;
ch: byte;
begin
windowhld:=GetForegroundWindow;
threadld:=GetWindowThreadProcessId(Windowhld,nil);
AttachThreadInput(GetCurrentThreadId,threadld,true);
Focushld:=getfocus;
AttachThreadInput(GetCurrentThreadId,threadld,false);
if focushld = 0 then
Exit;
i := 1;
while i <= Length(sSend) do
begin
ch := byte(sSend);
if Windows.IsDBCSLeadByte(ch) then
begin
Inc(i);
SendMessage(focushld, WM_IME_CHAR, MakeWord(byte(sSend), ch), 0);
end
else
SendMessage(focushld, WM_IME_CHAR, word(ch), 0);
Inc(i);
end;
end;

end.

Just Like
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=211425

chinarlzn: 你的"′ó&#184;&#187;&#206;ì&#194;&#219;ì3'是在什么软件里面的测试结果? 环境?

测试结果:
环境win98
1:在ie地址栏无效
2:在ie edit框得到&acute;ó&cedil;&raquo;&Icirc;&Igrave;&acute;ó&cedil;&raquo;&Icirc;&Igrave;&acute;ó&cedil;&raquo;&Icirc;&Igrave;&acute;ó&cedil;&raquo;&Icirc;&Igrave;&acute;
3:在原form上放个memo,正常
4:在delphi编辑框里,正常

建议把分全给Big_z
呵呵,他的程序在上述情况下完全正确

Win98
就在大富翁问题提出栏中测试的！我在写字板中和Word中测试
发现：在写字板上只见光标移动；
Word97中出现乱码乱码
我跟codeguru有点相反，在IE地址栏上很灵，但在ie表单中不太稳定，
不过按照您的方法比以前要好多了。

那就用Big_z的吧! 奇怪的是,在我的机器上我的代码一点问题也没有!!!
其余的同志到外面来拿分.

sendkey好象有个老外写的版本，支持很多，包括功能键等