怎么获取当前窗口的所有输入框内容

如何获取当前窗口的所有输入框内容
实现的效果:
打开一个网页,上面有很多输入框,类似填写表单那种的。一点击“获取”按钮就可以把表单上输入框的内容获取下来。
现在已经有了思路:
  CurrentWindowHWnd := GetForegroundWindow(); //得到当前窗口
然后找到当前窗口的所有输入框句柄 (这步不知如何实现)
获取输入框的值。
请高手赐教!!!

------解决方案--------------------
var pdata : PChar;
GetMem(pdata,256);
TEdit(ActiveControl).Perform(WM_GETTEXT,256,LongWord(pdata));
showmessage(pdata);
freemem(pdata,256);
------解决方案--------------------
取Internet Explorer_Server的句柄,然后通过这个句柄获得IHTMLDocument接口,再由此接口取所有input元素的值!
百度之!!!