GetCurrentProcess得到是不是句柄

Question

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

Answer 1

晕,你都没有建立消息队列,怎么能相应消息??
handle不一定表示的是消息队列
自己看看最基础的SDK去吧

Answer 2

你TMD的不给答案就算了,  楼上的乱说,自己回回答不了就算了,还误你子弟,我查到了真正的原因,是因为这个函数根本就无法得到真实的句柄,得到的是人假句柄,只能程序自己用效,对外面没有效的,