simulate alt + shift + y to activex component

[haidomingo]

Delphi-Quellcode:

AcroPDF1.SetFocus;
     keybd_event(VK_SHIFT,  Mapvirtualkey(VK_SHIFT, 0), 0, 0);
     keybd_event(VK_CONTROL, Mapvirtualkey(VK_CONTROL, 0 ), 0, 0);
     keybd_event( Ord('Y'), MapvirtualKey( Ord('Y'), 0), 0, 0);
     keybd_event( Ord('Y'), MapvirtualKey( Ord('Y'), 0), KEYEVENTF_KEYUP,0);
     keybd_event(VK_CONTROL, Mapvirtualkey(VK_CONTROL, 0 ), KEYEVENTF_KEYUP,0);
     keybd_event(VK_SHIFT,  Mapvirtualkey(VK_SHIFT, 0), KEYEVENTF_KEYUP, 0);
   //  Sleep(100);
     keybd_event(VK_SHIFT,  Mapvirtualkey(VK_SHIFT, 0), 0, 0);
     keybd_event(VK_CONTROL, Mapvirtualkey(VK_CONTROL, 0 ), 0, 0);
     keybd_event( Ord('V'), MapvirtualKey( Ord('V'), 0), 0, 0);
     keybd_event( Ord('V'), MapvirtualKey( Ord('V'), 0), KEYEVENTF_KEYUP,0);
     keybd_event(VK_CONTROL, Mapvirtualkey(VK_CONTROL, 0 ), KEYEVENTF_KEYUP,0);
     keybd_event(VK_SHIFT,  Mapvirtualkey(VK_SHIFT, 0), KEYEVENTF_KEYUP, 0);

Thanks