Tastendruck an TWebbrowser

[Bummi]

Aufruf macht erst Sinn wenn "DocumentComplete gefeuert" wurde ....

Delphi-Quellcode:

 (Webbrowser1.Document as IHTMLDocument2).ParentWindow.Focus;

   keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_EXTENDEDKEY, 0);
   keybd_event(Ord('A'),   MapVirtualKey(Ord('A'), 0), KEYEVENTF_EXTENDEDKEY, 0);
   keybd_event(Ord('A'),   MapVirtualKey(Ord('A'), 0), KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);
   keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);