Nach ShellExecute Anwendung wieder noch vorne holen?

[moelski]

Moin !

Hangele mich heute irgendwie von Problem zu problem ...

Ich starte beim Programmstart eine Anwendung mit. Gekürzt schaut das so:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Windows,      {GetKeyState, VK_LSHIFT}
  Dialogs,      {ShowMessage}
  Registry, ShellAPI,     {auslagern !}
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

Procedure StartConsole;
Const FileName  = 'SmartInspectConsole.exe';
var regist      : TRegistry;
    ProfPath,
    Redistpath  : String;
begin
  // übriger Code ...
  if ProfPath <> '' then begin
    ShellExecute(Application.Handle, 'open', PChar(ProfPath + '\' + FileName), '', '', SW_SHOW);
  end;
end;

begin
  StartConsole;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Das klappt auch ohne Stress. Ich starte meine Anwendung und 'SmartInspectConsole.exe' wird parallel auch gestartet. Soweit alles kein Thema.

Nun liegt aber danach die mitgestartete Anwendung über meine Anwendung. Das ist natürlich etwas unschön, denn vornehmlich gehts ja um meine Anwendung :wink: Blöd ist nun, die die Anwendung die mitgestartet wird einen Splashscreen hat. Und der Startvorgang dauert auch je nach Rechner einige Sekunden.

Nun stellt sich mir die Frage ... Wie zum Henker kann ich meine Anwendung wieder nach vorne holen? Wenn ich das Handle der der mitgestarteten Anwendung auslese und die Anwendung nach hinten setzen will, erwische ich nur den SplashScreen:

Delphi-Quellcode:

var app : HWnd;
begin
  app := FindWindow(nil, 'SmartInspect Professional Console');
  SetWindowPos(app, HWND_BOTTOM, Left,Top, Width,
             Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Setze ich nach begin noch ein sleep(5000); ein, dann geht es. Aber das ist natürlich eine äusserst unschöne Sache.

Hat also jemand ne Idee wie ich geschickt auf die andere Anwendung "warten" kann?
Oder vielleicht kann man auch die mitgestartete Anwendung anders starten?! SW_SHOWMINIMIZED bringt leider keinen Erfolg. Das habe ich schon getestet.

Ziel sollte es halt sein, das meine Anwendung im Vordergrund ist und nicht die gestartete Anwendung. :gruebel:

[SirThornberry]

setzte einfach deine Anwendung nach vorne (BringWindowToFront etc.). Gegenbefalls kannst du dein Fenster auch TopMost deklarieren so das es im Idealfall immer über den anderen Anwendungen liegt.

[moelski]

Moin !

Zitat:

setzte einfach deine Anwendung nach vorne (BringWindowToFront etc.).

So einfach is die Lage leider nicht.

Denn ... Ich kann zwar meine Anwendung mit BringWindowToFront o.ä. nach vorne setzen. Aber wenn der Splashscreen der mitgestarteten Anwendung zu geht und das MainWindows der anderen Anwendung auf geht, dann liegt das wieder oben. Und mein BringWindowToFront war für die Katz. :cat:

Es muss also irgendwie geschickter gehen. Weiss aber noch ned wie :gruebel:

[SirThornberry]

dann eben mit topmost (SetWindowPos)

[Sunlight7]

Moin!

Eventuell könntest Du mit WaitForInputIdle warten, bis die andere Anwendung fertig geladen ist und erst dann Dein noch vorne holen?!