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
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.
