怎样向PowerPoint 发送复合键(如CTRL+K),求教!(150分)

  • 主题发起人 主题发起人 sz-jerry
  • 开始时间 开始时间
S

sz-jerry

Unregistered / Unconfirmed
GUEST, unregistred user!
我用:<br>&nbsp; &nbsp; PWH:=findWindow('PP9FrameClass',nil);<br>&nbsp; &nbsp; PostMessage(PWH,WM_KEYDOWN,(VK_CONTROL and $6B),0);<br>不行?
 
是PP97FrameClass?<br>再说发送组合键不一定成功的
 
补充: PP9FrameClass 是POWERPOINT 主窗口的类名,还有其他类名我都试过,<br>但还是没有反应。
 
许多书里有sendkeys例程,还有这方面的控件。<br>postmessage是不行的,否则就不会有sendkeys的话题了。
 
接受答案了.
 
以前结束淂太快了,如果非要模拟按键可以这么实现:<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>var h:Thandle;<br>begin<br>&nbsp; h:=findWindow('PP9FrameClass',nil);<br>&nbsp; SetForegroundWindow(h);<br>&nbsp; keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);<br>&nbsp; keybd_event(ord('K'), MapVirtualKey(ord('K'), 0), 0, 0);<br>&nbsp; keybd_event(ord('K'), MapVirtualKey(ord('K'), 0), KEYEVENTF_KEYUP, 0);<br>&nbsp; keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);<br>end;
 

Similar threads

I
回复
0
查看
783
import
I
I
回复
0
查看
698
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部