QQ聊天记录器演示程序(二)

QQ聊天记录器演示程序(二)(3)   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);
  finally
    FreeMem(QQText, 1024);
  end;
  end;
end;

完整的程序运行以后的图为:

CSDN_Dev_Image_2004-6-31230261.gif" align=baseline border=0>

若有什么问题:

请在ASP.itdrp.com/hottey">http://ASP.itdrp.com/hottey 上提出. (且上面有源码下载)