怎么用delphi模仿 windows text copyer的功能？抓取屏幕上的文字

[LastAvengers]

我在CSDN看到了一段类似的代码
如下：function GetText(hWndNow:Integer):String;
var
buf:Array of Char;
t:String;
i:Integer;
begin
hLength:=SendMessage(hWndNow,WM_GETTEXTLENGTH,0,0);
if hLength> 0 then
begin
SetLength(buf,hLength+1);
SendMessage(hWndNow,WM_GETTEXT,hLength+1,LPARAM(buf));
for i:=0 to Length(buf) do
t:=t+buf[i];

GetText:=t;
end
else
GetText:= ' ';
end;
但是它不能截取桌面或文件夹的文件名，只显示folderview 如何解决？
还有 如何实现被抓取控件的边缘高亮。。就是画个和控件一样大的矩形。。。

[LastAvengers]

怎么没人啊……

[无条件为你]

[Quote=引用 1 楼 lastavengers 的回复:]
怎么没人啊……
[/Quote]

原因是分太少。

[LastAvengers]

可是我没分啊……

[LastAvengers]

结帖 反正问题我自己解决了。