PostMessage 结构体，消息队列满了？内存泄漏？？？

Question

主线程：
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    procedure My(var m:TMessage);message WM_My;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.My(var m:TMessage);//message WM_My;
var pp:PMyRec;
begin
  if m.WParam=0 then
  begin
    pp:=PMyRec(m.LParam);
//    Memo1.Lines.Add(inttostr(pp.i));
    FreeMem(pp,sizeof(TMyRec));
  end
  else if m.WParam=1 then
  begin
    Memo1.Lines.Add('TABthread finish .');
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
var j:HWND;
begin
  TABthread.Create(form1.Handle);
end;end.
子线程：
unit ABThreadU;interfaceuses
  Classes, Messages, Windows;Const
  WM_My=WM_USER+1000;type
  TMyRec=record
    i:integer;
  end;
  PMyRec=^TMyRec;  TABthread = class(TThread)
  private
    FWnd:HWND;
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor Create(H:HWND);
  end;implementationconstructor TABthread.Create(H:HWND);
begin
  inherited Create(true);
  FWnd:=H;
  self.Resume;
end;  procedure TABthread.Execute;
var pp:PMyRec;
    i:integer;
begin
  for i:=1 to 20000 do
  begin
    GetMem(pp,sizeof(TMyRec));
    pp.i:=i;
    PostMessage(FWnd,WM_My,0,integer(pp));
  end;
  PostMessage(FWnd,WM_My,1,0);
end;end.如上代码，每次按下 Button1 时，程序占用内存就增加 几十 到 上百k ，且“PostMessage(FWnd,WM_My,1,0);”不一定能收到。--------①
后来 将循环 减少为 “for i:=1 to 200 do”，第一次按 Button1 时，程序占内存增加了 几十k------②，接着 连续按 Button1 几十次，程序占内存都不会变。综上现象：
问题：
1、①处，是因为 连续发的消息 太多，窗口消息队列 放不下了？那 窗口消息队列 最多放多少条消息？
2、②处，为什么第一次按 Button1 时，程序占内存会增加 几十k？是因为第一次使用Memo1(打印“TABthread finish .”)，程序为Memo1分配所需内存？(我程序刚打开时，Memo1里面是没有任何字符的)

Answer 1

1、对于XP系统，消息队列最多可以放10000条消息，消息队列满了之后，再PostMessage会返回失败。
2、创建线程需要为线程分配栈空间。估计你查看的是物理内存，对于重复的操作，多数情况下再第1次执行时物理内存会增加，之后就基本不变了。如果是虚拟内存，是在分配是增加，释放后减少。

Answer 2

procedure TABthread.Execute;
var pp:PMyRec;
    i:integer;
begin
  FreeOnTerminate := True;  //  <-- 线程完了后释放

Answer 3

没有全懂，我看的内存变化是直接在任务管理器看的。
你的意思是：如果 我 第一次 按下 Button1 时，物理内存 够用，则 任务管理器 中的数值增加，并在线程TABthread执行完后数值不减少；又 如果 我 第一次 按下 Button1 时，物理内存不够，要用到虚拟内存，则 任务管理器 中的数值增加，并在线程TABthread执行完后数值减少。
是不是？

Answer 4

PostMessage(FWnd,WM_My,0,integer(pp));
  end;
  PostMessage(FWnd,WM_My,1,0);
请教一下楼主，这两句在线程的作用是什么？

Answer 5

     函数功能：该函数将一个消息放入（寄送）到与指定窗口创建的线程相联系消息队列里，不等待线程处理消息就返回。消息队列里的消息通过调用GetMessage和PeekMessage取得。     函数原型：B00L PostMessage（HWND hWnd，UINT Msg，WPARAM wParam，LPARAM lParam）；     参数     hWnd：其窗口程序接收消息的窗口的句柄。可取有特定含义的两个值：     HWND.BROADCAST：消息被寄送到系统的所有顶层窗口，包括无效或不可见的非自身拥有的窗口、被覆盖的窗口和弹出式窗口。消息不被寄送到子窗口。     NULL：此函数的操作和调用参数dwThread设置为当前线程的标识符PostThreadMessage函数一样。     Msg：指定被寄送的消息。     wParam：指定附加的消息特定的信息。     IParam：指定附加的消息特定的信息。     返回值：如果函数调用成功，返回非零值：如果函数调用失败，返回值是零。若想获得更多的错误信息，请调用GetLastError函数。