发送字符串到当前光标所在位置

var
cn: array[0..255] of Char;
HD: HWND;
T1,T2: DWORD;
begin
(*获得焦点所在窗口句柄，可以是除本身外的所有其他应用程序。
如果焦点所在子窗体中，则获得的是父窗口句柄。*)
HD := GetForegroundWindow;
if HD > 0 then
begin
//通过焦点所在窗口的句柄，获得其线程的标识符
T1 := GetWindowThreadProcessId(HD);
//通过本身的句柄，获得本身的线程的标识符
T2 := GetWindowThreadProcessId(Application.Handle);
//共享焦点
AttachThreadInput(T2,T1,True);
HD := GetFocus;
if (HD > 0) then
begin
GetClassName(HD,cn,Length(cn));
if Trim(cn) = 'Edit' then //类名
begin
SendMessage(HD,WM_SETTEXT,1,LongInt(PChar(str)));
PostMessage(HD,WM_KEYDOWN,VK_RETURN,0); //发回车命令
end;
end;
//撤销连接
AttachThreadInput(T2,T1,False);
end;
//HD := GetFocus; //如果单独用，只能获得当前应用程序的焦点所在控件的句柄。
end;