Zwischen 2 Applicationen Toggeln

[Chris P]

Delphi-Quellcode:

var  
  B: Boolean;
  Handle1, Handle2 : HWND;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Handle1 := FindWindow(nil , PCHAR('Fenster1'));  // <--- 1. Fenstertitel einsetzen
   Handle2 := FindWindow(nil , PCHAR('Fenster2'));  // <--- 2. Fenstertitel einsetzen
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   B := not B;

   if B then
     SetForegroundWindow(handle1)   // <--- statt BringToFront
   else
     SetForegroundWindow(handle2);  // <--- statt BringToFront
end;

Habe es nicht ausprobiert, aber sollte vielleicht ein kleiner Ansatz sein