如何取得别的程序中选择中的文字 ( 积分: 0 )

当我在别的程序中用鼠标进行拖拉选择文本时，如何可以在自己的程序中立即取得显示这些被选择的文字 ？

Hwnd := FindWindowEx(FindWindow('TForm1',nil),0,'TMemo',nil); //先找你窗体的句柄,然后找这个窗体中输入区的句柄
if Hwnd > 0 then
str := SendMessage(Hwnd, WM_GETTEXT, 0, 0);


或者
var str:string;

GetCaretPos(CurPoint); //获取闪动光标位置
Hwnd := WindowFromPoint(CurPoint);//获取闪动光标位置的句柄
str := SendMessage(Hwnd, WM_GETTEXT, 0, 0);
我没试,不知道行么