將字串传入到Windows目前窗口Cursor所在位置

网络ID:wnhoo or sos_admin

网名:e梦缘

Mail:wnhoo@163.com

风花雪月 e梦情缘

如下：

function GetSysFocus : integer;

Var

hOtherWin,OtherThreadID,hFocusWin : integer;

Begin

hOtherWin := GetForegroundWindow;

OtherThreadID := GetWindowThreadProcessID( hOtherWin, nil);

If AttachThreadInput( GetCurrentThreadID, OtherThreadID, true ) Then

Begin

hFocusWin := GetFocus;

result := GetFocus;

AttachThreadInput( GetCurrentThreadID, OtherThreadID, False );

End

else

result := getFocus;

End;

procedure TForm1.Timer1Timer(Sender: TObject);

var

s:string;

begin

s:='test';

SendMessage(GetSysFocus, WM_SETTEXT,0,longint(PCHAR(S)));

end;