hey...
ich versuche momentan mit Postmessage an die TWebbrowser Komponente die Tastendrücke Strg+A zu senden.
Hierzu habe ich folgendes Ausprobiert. ersteinmal öffne ich den Webbrowser :

markieren

Delphi-Quellcode:

 
Webbrowser1.Navigate('www.Windguru.cz');
Webbrowser1.SetFocus;

dann habe ich die ersteinmal das ausprobiert :

markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 PostMessage(Webbrowser1.Handle, WM_KEYDOWN, VK_CONTROL,0);
 PostMessage(Webbrowser1.Handle, WM_KEYDOWN, ord('A'),0);
 PostMessage(Webbrowser1.Handle, WM_KEYUP, VK_CONTROL,0);
 PostMessage(Webbrowser1.Handle, WM_KEYUP, ord('A'),0);
end;

da nichts passierte habe ich ein bisschen gesucht und gelesen, dass man für Win-Api-Aufrufe
Webbrowser1.hWnd statt Webbrowser1.Handle benutzen solle.
Hierbei trat jedoch der Fehler "Im Projekt Projekt1.exe ist eine Exception der Klasse EOleException mit der Meldung 'unbekannter Fehler' aufgetreten".

daraufhin hab ich hier im Forum eine andere Lösung gefunden:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  wnd :HWND;
begin
  wnd := FindWindowEx(WebBrowser1.Handle,0,'Shell DocObject View',nil);
  wnd := FindWindowEx(wnd ,0,'Internet Explorer_Server',nil);
  if wnd <> 0 then
  begin
   // *** (Webbrowser1.Document as IHTMLDocument2).ParentWindow.Focus; *** // ist wahrscheinlich nicht notwendig
     PostMessage(wnd, WM_KEYDOWN, VK_CONTROL,0);
     PostMessage(wnd, WM_KEYDOWN, ord('A'),0);
     PostMessage(wnd, WM_KEYUP, VK_CONTROL,0);
     PostMessage(wnd, WM_KEYUP, ord('A'),0);
  end
end;

auch hier geschieht jedoch nichts. bzw. ersetzt man Webbrowser1.Handle durch Webbrowser1.hWnd tritt erneut der Fehler auf. Das Handle scheint er auch komischerweise zu finden da er in die Bedingung hinein geht...
Bin hier gerade am verzweifeln und würde mich freuen wenn mir jemand weiter helfen könnte.

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

markieren

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);