以下程序可以考虑用Timer或者HOTKEY触发
var
; GetHwnd : HWND;
; pos : TPoint;
begin
; GetCursorPos(pos);
; GetHwnd := WindowFromPoint(pos);
// ;SetWindowText(GetHwnd,pchar(edit1.text));
; SendMessage(GetHwnd,WM_SETTEXT,0,lparam(pchar(edit1.Text)));
end;
分数不要加了。看看以下帖子。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=330030
http://www.delphibbs.com/delphibbs/dispq.asp?lid=512713
http://www.delphibbs.com/delphibbs/dispq.asp?lid=409657
http://www.delphibbs.com/delphibbs/dispq.asp?lid=481283