DELPHI怎样接收来自利用WINSOCK API编写的应用程序发送过来的消息？

Question

DELPHI怎样接收来自利用WINSOCK API编写的应用程序发送过来的消息？

Answer 1

procedure onposchange(var msg:twmwindowposchanging);
  message wm_windowposchanging;
...

Answer 2

procedure TMyForm.MyWndProc(var Message: TMessage);begin
  if Message.Msg = '此处为winsock api发給你的消息' then
     //做爱做的事情
  else
    WndProc(Message);end;同时要在某处使用:
WindowProc := MyWndProc;以替代原来的wndproc

Answer 3

en?
怎么都答非所问。
zyq???