如何获得当前光标所在位置的不知名控件的句柄？

Question

我想实现真正的模拟键盘输入---就象我闭着眼睛敲键盘一样，光标在哪儿就做什么。

Answer 1

参考模拟系统按键的方法～～
http://www.soulan.com/kingron/document/delphi/wjjsoft_670.html

Answer 2

var
  P: TPoint;  GetCursorpos(P);
  WindowFromPoint(P);

Answer 3

var
  point:Tpoint;
  hand:HWND;
begin
  GetCursorPos(point);
  hand:=WindowFromPoint(point);
end;

Answer 4

12rain(中雨~百年孤独), tjff2000(fengyun)
你们的程序很好，可惜GetCursorPos取得的是鼠标光标，我想要的是当前焦点。

Answer 5

知道了！用GetFocus();var
  hand:HWND;
begin
  hand:=GetFocus();
end;然后用SendMessage搞定！　谢谢！