得到记事本的文本内容

Question

要通过消息来实现，
var
lBuf: PChar;hLastWin := MyFindWindow();      //得到记事本句柄
SendMessage(hLastWin, WM_GETTEXT, 100000, INTEGER(lBuf));   //得到内容
SHOWMESSAGE(lBuf);     //显示出来
我这代码，怎么不行       

Answer 1

可能句柄找错了var
     h1, h2: THandle;
     s :  array[0..255] of char;
begin
  h1 := FindWindow('Notepad',nil);
  if   h1 <> 0  then
  begin
    h2  := FindWindowEx(h1,   0,   'Edit',   nil);
    if   h2 <> 0  then
    begin
      SendMessage(h2,   WM_GETTEXT,   256,   Integer(@s[0]));
      ShowMessage(s);
    end
  end
  else
    ShowMessage('没找到记事本窗体');
end;