findwindow Opera

[Nisbo]

es war nichts passiert, inzwischen habe ich das anders gelöst mit nem tipp aus nem anderen topic mit der funktion "FindAWindow"
habe den link jetzt nicht mehr parat dazu

damit gehts jetzt, wird immer das aktuelle opera-fenster / tab genommen

jetzt habe ich nur noch das problem, es geht zwar nur passiert mir folgendes, ich kann das "CleanIcon" von windows nicht mehr nutzen, also das was den Desktop sichtbar machen, in verzeichnissen gehen auch keine Doppelklicks mehr um programme zu öffnen

senden tue ich SHIFT, ESC und S um ein Formular mittels accesskey abzuschicken, denn so wie das im opera gelöst ist ist es zu umständlich, nutze dafür momentan die F10 Taste, soll aber mal genauso funktionieren wie auch im IE und im Firefox

ach ja hier der code

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var TheWindowHandle: THandle;
begin
if GetAsyncKeyState(VK_F10) < 0 then
begin
  TheWindowHandle:=FindAWindow('Opera', '');
  if TheWindowHandle=0 then
    ShowMessage('Window not found!')
  else
   begin
    setforegroundwindow(TheWindowHandle);
    keybd_event(VK_SHIFT,  0, 0, 0 );
    keybd_event(VK_ESCAPE, 0, 0, 0 );
    sendkeys('{S}', false);
    sleep(1000);
   end;
end;

ach ja wenn ich dann die ESC Taste mehrmals drücke dann funktioniert wieder alles
was habe ich denn da jetzt falsch gemacht ?
S