Z
zhbruce
Unregistered / Unconfirmed
GUEST, unregistred user!
我用sendmessage(HWndCalculator,wm_CLOSE,0,0)能能关闭另一个程序,但是用SendMessage(HWndCalculator,WM_KEYDOWN,VK_NEXT,0)却没有反应。 (100分)<br />有一个应用程序(不是我写的),其中有一个功能是只要按下键盘的PgUp和PgDn键就可以显示上一个数据或下一个数据。<br> 我现在想写一个程序模似PgDn键让那个应用程序显示下一个数据。<br> 我用sendmessage(HWndCalculator,wm_CLOSE,0,0)能关闭这个应用程序.如下<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>HWndCalculator : HWnd;<br>begin<br>// find the exist calculator window<br>HWndCalculator := FindWindow(nil,'广发广州一 - 广发网上股票交易分析系统 V3.55'); // close the exist Calculator<br>if HWndCalculator <> 0 then<br>sendmessage(HWndCalculator,wm_keydown,22,0);//pagedown<br>end;<br>end.<br><br><br>但是我用SendMessage(HWndCalculator,WM_KEYDOWN,VK_NEXT,0)应用程序却没有反应。如下<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>HWndCalculator : HWnd;<br>begin<br>// find the exist calculator window<br>HWndCalculator := FindWindow(nil,'广发广州一 - 广发网上股票交易分析系统 V3.55'); // close the exist Calculator<br>if HWndCalculator <> 0 then<br>sendmessage(HWndCalculator,wm_keydown,vk_next,0);//pagedown<br>end;<br>end.<br><br>请问如何解决这个问题<br>