刘胜的专栏

一、PeekMessage()函数。下面是它的原形： BOOL PeekMessage( LPMSG lpMsg, // pointer to structure for message HWND hWnd, // handle to window UINT wMsgFilterMin, // first message UINT wMsgFilterMax, // last message UI

首先创建一个新的VCL工程用于测试（方法大家都会），现在开始安装OCX控件，方法有点繁琐首先单击File▶New▶Package 创建一个控件包，然后保存这个工程（注意这一步很关键），然后单击Component▶Import Component▶Import ActiveX Control，在列表中选一个已注册的OCX控件或直接导入一个ocx文件，然后单击Next直到出现Add unit