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

Question

我在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 如何解决？
还有 如何实现被抓取控件的边缘高亮。。就是画个和控件一样大的矩形

Answer 1

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