Zwischen 2 Applicationen Toggeln

[AndreT]

Hallo, guten Morgen zusammen.

Mir fehlt noch komplett irgendwie der Ansatz.

Ich möchte ein Programm schreiben, mit dem ich Timergesteuert (das ist weniger das Problem) zwischen 2 Programmen, dessen Namen bekannt sind, hin und her schalten kann.

Also immer Abwechselnd ...Program A maximiert im Vordergrund, dann Programm B und dann wieder A und.........

Ich bin mit meinen Versuchen immer gescheitert.

Gibt es sowas wie Application.maximize('A.exe');? ..oder BringinFront

Danke

Gruß Andre

[fkerber]

Hi!

Handelt es sich bei den zwei Programmen um selbstgeschriebene Programme oder beliebige?


Ciao, Frederic

[AndreT]

um beliebige.

Als Beispiel "Outlook.exe" und "klicktel.exe"

[Chris P]

Schau mal nach FindWindow um an das Handle zu kommen und anschließend mit BringToFront bringst du das Fenster in den Vordergrund.

[Chris P]

Ich schicke dir einen kleinen Ansatz...

[AndreT]

Zitat von Chris P:

Ich schicke dir einen kleinen Ansatz...

Danke

[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

[Chris P]

Das hier sollte besser gehen, aber nur wenn die Fenster sichtbar sind und nicht minimiert.

Delphi-Quellcode:

if B then
     SetwindowPos(handle1, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE)
   else
     SetwindowPos(handle2, HWND_TOPMOST,0 , 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

[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

[Chris P]

Also bei mir funktioniert es.

Hast du die 2 Fenster auch geöffnet?

Öffne die 2 Fenster und nimm die 2 Fenstertitel, z.b: 'Arbeitsplatz'.
Nicht den EXE-Namen.

Das SetWindowLong brauchst du nicht...