主线程里
for i := 0 to 5 do begin
postthreadmessage(mythread.threadid,9995,0,integer(inttostr(i)));
end;
连续post 5次
子线程里
PeekMessage(myMsg,0,0,0,PM_NOREMOVE);
while GetMessage(myMsg,0,0,0) do begin
if myMsg.message = 9995 then begin
(在这里发现并不是每次都能收到,就算收到string(myMsg.lparam)后也不是 0、1、2、3、4、5,
可能是 1、d:\process*.j、3、 、)(我描述的都是string型)
...
end;
end;