如何知道另一程序窗体中的memo组件的文本。

Question

比如：我新建一个工程:Project1,在form1 里加添加一个memo1 ,我要获取memo1里面的文本内容
我的代码如下，不能实现。
  hWindow := FindWindow(nil,'Project1');
  if hWindow = 0 then
  begin
    ShowMessage('未找到指定窗口');
    Exit;
  end;
  hControl := FindWindowEx(hWindow, 0, 'Memo1' , nil);
  if hControl = 0 then
  begin
    ShowMessage('未找到指定控件');
    Exit;
  end;
  GetMem(sWindowText, 100);
  SendMessage(hControl, WM_GETTEXT, 100, LPARAM(sWindowText));
  Caption := sWindowText;
  FreeMem(sWindowText);
-------------------------------------------------

Answer 1

hWindow := FindWindow(nil,'Project1'); //第二个参数是窗口的名字，如：Form1 不是工程的名字hControl := FindWindowEx(hWindow, 0, 'Memo1' , nil); //第三个参数是类名，TMemo

Answer 2

那如果是获取TDBGrid里的内容呢。
hControl  :=  FindWindowEx(hWindow,  0,  'TDBGrid',  nil);
要怎么写
GetMem(sWindowText,  100);  
SendMessage(hControl,  WM_GETTEXT,  100,  LPARAM(sWindowText));

Answer 3

TDBGird没有提供方法让你使用WIN32消息的方法取得它的内容。