{
文章名 : 获取指定窗口EDIT、RICHEDIT控件选中的内容
说明 : 无
作者 : JJony
QQ : 254706028
博客 : http://blog.csdn.net/jzj_jony
空间 : http://jonychen,ys168.com
测试环境 : WinXPSP2+Delphi7
声明 : 您可以任意转载，但请注明文章作者和出处
}
获取指定窗口EDIT、RICHEDIT控件选中的内容
前两天看到DFW有人问如何获取选中的内容，随便回答了利用系统消息，今天又去看似乎那个人还
未解决，于是把我实现的代码贴出来，以供大家参考，顺便再次强调下Windows是个消息的系统,
所以处理系统消息一定要掌握，下面就是实现代码，很简单:
//获取指定窗口EDIT、RICHEDIT控件选中的内容
//实现函数
function GetSelectedText(
h:thandle; //EDIT或RICHEDIT的句柄
Buffer: PChar; //返回获取的选中文本
BufSize: Integer //指定返回的大小
): Integer; //返回实际获取的文本的大小
var
P: PChar;
spos,epos:integer;
slen:integer;
sl:integer;
begin
SendMessage(H, EM_GETSEL, Longint(@SPos), Longint(@EPos));//获取选中字符串的起始位置
//和结束位置
sl := EPos-SPos; //计算选中字符串长度
slen:=SendMessage(h,WM_GETTEXTLENGTH, 0, 0); //获取控件文本整个长度
P := StrAlloc(slen + 1); //分配足够内存以存储控件所有文本
try
SendMessage(h,WM_GETTEXT,StrBufSize(P), Longint(p)); //获取控件所有文本
if sl >= BufSize then sl := BufSize - 1; //根据自定义buffer的长度获取文本串
//防止内存溢出
StrLCopy(Buffer, P + SPos, sl); //返回选中的字符串
result:=sl; //返回实际获取的文本的大小
finally
StrDispose(P); //释放内存
end;
end;
//调用实例:获取记事本中当前选中的内容
procedure TForm1.Button1Click(Sender: TObject);
var
h:thandle;
buf:array[0..MAX_PATH] of char;
begin
h:=findwindow('Notepad',nil);
if h<=0 then exit;
h:=findwindowex(h,0,'Edit',nil);
if h<=0 then exit;
GetSelectedText(h,@buf,sizeof(buf));
memo1.Text:=strpas(@buf);
end;