获取指定窗口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;