Zwischen 2 Applicationen Toggeln

[AndreT]

Mit Fenstertitel ist das was oben im "blauen" steht gemeint, oder der Name der Anwendung?


Funktioniert nämlich leider beides bei mir nicht. Es passiert garnichts

Code mit dem Namen der Anwendung (Mit Fenstertitel hab ich es auch probiert):

Delphi-Quellcode:

var
  Form1: TForm1;
    B: Boolean;
  Handle1, Handle2 : HWND;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 SetWindowLong( Application.Handle, GWL_EXSTYLE,
               GetWindowLong(Application.Handle, GWL_EXSTYLE) or
               WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

Handle1 := FindWindow(nil , PCHAR('Programm1.exe'));  // <--- 1. Fenstertitel einsetzen
Handle2 := FindWindow(nil , PCHAR('Programm2.exe'));  // <--- 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;

*grübel*

mit dem 2.Ansatz das selbe