学习 Message(9): 消息结构纵览

转自：http://www.kanwenzhang.com/software/program-delphi/c/3121/23121.html

 

PMsg　=　^TMsg;
tagMSG　=　packed　record
　hwnd:　HWND;
　message:　UINT;
　wParam:　WPARAM;
　lParam:　LPARAM;
　time:　DWORD;
　pt:　TPoint;
end;
TMsg　=　tagMSG;
MSG　=　tagMSG;

PMessage　=　^TMessage;
TMessage　=　packed　record
　Msg:　Cardinal;
　case　Integer　of
　　0:　(
　　　WParam:　WPARAM;
　　　LParam:　LPARAM;
　　　Result:　LRESULT);
　　1:　(
　　　WParamLo:　Word;
　　　WParamHi:　Word;
　　　LParamLo:　Word;
　　　LParamHi:　Word;
　　　ResultLo:　Word;
　　　ResultHi:　Word);
end;