正在阅读：QQ聊天记录器演示程序(一)QQ聊天记录器演示程序(一)

  Buf: integer;

begin

  GetMem(QQText,1024);

  if (hwd<>0) then

  begin

  try

    Ret := SendMessage(hwd, WM_GETTEXTLENGTH, 0, 0) + 1;

    Buf := LongInt(QQText);

    SendMessage(hwd, WM_GETTEXT, Min(Ret, 1024), Buf);

    memo1.Lines.Add(QQText);  //在Memo中显示文本

  finally

    FreeMem(QQText, 1024);

  end;

  end;

end;