S
sunjunfeng3
Unregistered / Unconfirmed
GUEST, unregistred user!
program API;<br>uses<br>Windows, Messages,sysutils;<br><br><br>var<br>msg:tmsg;<br>Handle:WORD;<br>BEGIN<br>Handle := GetCurrentProcess();<br>messagebox(0,'ok',pchar('the Handle is '+inttostr(Handle)),0);<br>while getmessage(msg,0,0,0) do<br>begin<br>case msg.message of<br>wm_close: exit;<br>wm_quit:exit;<br>wm_user+200:begin<br>messagebox(0,'ok','wm_user+200',0);<br>end;<br><br>end;<br>messagebox(0,'MESSAGE oK','MSG OK',0);<br>end;<br><br>END.<br>每次的句柄都是一样的,这是怎么回事呢,而且,我用另一个程序向这个句柄发送WM_USER+200消息,从来没收过到