收藏 (0) +1 (0) +1 (0) +1
收藏成功查看收藏>>

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

2004-06-07 10:09 出处:CSDN 作者:hottey 责任编辑:linjixiong



function TForm1.Findhwd(parent: HWND):HWND;
var
  hwd,hBtn,hMemo:HWND;
begin
    hwd:=findwindowex(parent,0,'#32770',nil);

    Result := 0;
    if (parent<>0) then
    begin
      hBtn := FindwindowEX(hwd,0,nil,'发送(&S)');
      if (hBtn<>0) then
        begin
          hMemo := GetDlgItem(hwd,$00000000);
          if (hMemo<>0) then
            begin
              result := GetWindow(hMemo,GW_CHILD);
            end;
        end;
    end;
end;


procedure TForm1.GetText(hwd: HWND);
var
  Ret: LongInt;
  QQText: PChar;
  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);
  finally
    FreeMem(QQText, 1024);
  end;
  end;
end;

 


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


  若有什么问题: 请在http://asp.itdrp.com/hottey 上提出. (且上面有源码下载)
 






察看评论详细内容 我要发表评论
作者笔名简短内容 发表时间
:
键盘也能翻页,试试“← →”键

关注我们

最新资讯离线随时看 聊天吐槽赢奖品
手机访问回到顶部