wm gettext 问题 高手快来！

Question

怎么才可以用这个消息获取edit1框的内容 请给下代码 谢谢 

Answer 1

  function  GetText(Wnd  :  HWND)  :  string;
  var
      textlength  :  integer;
      text  :  PChar;
  begin
      textlength:=SendMessage(Wnd,WM_GETTEXTLENGTH,0,0);
      if  textlength=0  then
          Result  :=  ''
      else  begin
          getmem(text,textlength+1);
          SendMessage(Wnd,WM_GETTEXT,textlength+1,Integer(text));
          Result:=text;
          freemem(text);
      end;
  end;

Answer 2

关键要知道要获取text对象的句柄handle
然后直接SendMessage(handle,WM_GETTEXT,sizeof(buf),Integer(@buf));

Answer 3

SendMessage(handle,WM_GETTEXT,sizeof(buf),Integer(@buf));
句柄可以通过findwindow去取