网络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;
|