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

//窗口消息处理过程

procedure TForm1.WndProc(var Msg: TMessage);

begin

  with Msg do

  begin

    if Msg = WM_USERCMD then    //DLL发来的自定义消息

      begin

      case wParam of

        UC_WINCREATE :         //QQ消息框创建

        begin

          GetText(Findhwd(HWND(lParam)));  //得到QQ消息框里的文本

        end;

      end;

   end;

 end;

 inherited;

end;

//通过wParam参数找到QQ窗口句柄

function TForm1.Findhwd(parent: HWND):HWND;

var

  hwd,hBtn,hMemo:HWND;

begin

    result := 0;