Focus auf eigene Anwendung nicht verlieren

[erich.wanker]

zwischenzeitlich hab ich es "ganz fürchterlich grauslig" zum laufen gebracht ..

.. naja ... mit mehrfachen!!? Mausklicks via Timer in mein Fenster ..

Delphi-Quellcode:

  private
    durchlauf:Integer;


procedure TForm1.Edit1Change(Sender: TObject);
begin

      if length(edit1.Text) = 12 then
      begin
        ShellExecute(Form1.Handle, 'open', pchar('http://www.domain.suffix:81/isapi.dll?wert='+edit1.Text), nil, nil, SW_SHOWNOACTIVATE);
        edit1.Text:='';
        timer1.Enabled:=true;
      end;


      if length(edit1.Text) > 12 then
      begin
        edit1.Text:='';
      end;

end;




procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
      if not (Key in ['0'..'9', Char(VK_BACK)]) then Key := #0;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin

if durchlauf < 10 then
      begin
        SetCursorPos(form1.Left+100,form1.Top+100);
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
        durchlauf:=durchlauf+1;
      end
      else
      begin
        timer1.Enabled:=false;
        durchlauf:=0;
      end;
end;




procedure TForm1.FormCreate(Sender: TObject);
begin
durchlauf:=0;
end;

end.