Programm im Hintergrund starten

[hitzi]

Hallo,

ich nutze Shellexecute um ein fremdes Programm aus meinen Programm heraus zu starten. Das funktioniert auch tadellos, das Problem hierbei ist, dass beim Start des externen Programms das Hauptfenster von diesem Programm in den Vordergrund geholt wird. Da mein Programm ein Hilfsprogramm für einen dedizierten Server ist, läuft es beim Benutzer meist lange im Hintergrund. In so einer Konstellation ist es ein Problem, wenn der Benutzer in der Zwischenzeit in einen anderen Programm arbeitet und genau in so einen Moment die externe Anwendung von meinem Programm gestartet wird und so den Focus vom gerade aktuellen Programm weg nimmt.
Das wäre alles kein Problem, wenn ich das Programm einfach mit SW_SHOWMINNOACTIVE (SW_SHOWNOACTIVE bringt das Fenster trotzdem in den Vordergrund, obwohl der Parameter was anderes impliziert) starten könnte. Ein Start mit diesem Flag behebt das Problem oben genannte Problem, führt aber zu einen noch schlimmeren Problem. Wird die fremde Anwendung auf diese Weise gestartet, dann ist das Fenster bis auf einen Button leer. Ich denke mal das liegt an der Nutzung einer Skinning Komponente in diesem fremden Programm.

Gibt es eine Möglichkeit ein externes Programm so zu starten, dass das Fenster zwar sichtbar bleibt (um die Skining Komponente auszutricksen), aber eben nicht in den Vordergrund geholt wird. Kann man beim Start schon den Z Wert des Fensters ändern oder erst nach dem Start?

Viele Dank schon mal und viele Grüße

PS: Hab das Ganze auch schon mit CreateProcess durchgespielt, aber auch da verhält sich das fremde Programm genauso, wie bei einem Start mit ShellExecute.

[himitsu]

Du kannst versuchen das andere Programm minimiert zu starten, aber das Problem dabei ist immer, daß das Andere Programm auch diese Startparameter auswerten und entsprechend seine Fenster erstellen/laden muß, welches nicht von allen Programmen gemacht wird.

Alternativ könnte man entweder die erstellten Fenster nachträglich in den Hintergrund schieben,
bzw. man könnte auch die APIs hocken, welche die Fenster erstellen und in den Vordergrund holen
und verhindert dieses dort.

PS: aus einem ähnlichem Grund versuch(t)e ich ja sowas
http://www.delphipraxis.net/internal...100288#1100288

[hitzi]

Hallo Himitsu,

vielen Dank für deine Antwort. Ich starte das andere Programm minimiert (SW_SHOWMINNOACTIVE). Laut der Beschreibung von SW_SHOWNOACTIVE (ohne MIN) wäre dieses Flag genau das was ich brauch. Aber wenn ich dieses Flag benutze wird das Programm trotz allem in den Vordergrund geholt - ich denke mal, dass das an der im fremden Programm verwendeten Skinkomponente liegt.

Einen Hook wollte ich dafür eigentlich nicht nutzen. Ein anderer Ansatz wäre doch, dass fremde Fenster aufzuforder sich neu zu zeichnen. Vielleicht kommen dadurch die fehlenden Elemente im fremden Fenster wieder zum Vorschein. Aber wie kann ich eine fremdes Fenster auffordern sich komplett neu zu zeichnen?

[Fridolin Walther]

Wahrscheinlich hast Du Himitsus Aussage überlesen, aber hier nochmal:

http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

Zitat:

nShowCmd
[in] The flags that specify how an application is to be displayed when it is opened. If lpFile specifies a document file, the flag is simply passed to the associated application. It is up to the application to decide how to handle it.

Auf Klartext bedeutet das, daß der Show Parameter nur eine Empfehlung an die gestartete Anwendung ist, wie Du sie gestartet haben möchtest. Es ist für die Anwendung aber nicht verpflichtend dieser Empfehlung nachzukommen. Wenn Du eine Anwendung dazu zwingen willst seine Fenster so anzuzeigen, wie Du sie möchtest, wirst Du um Hooks nicht herum kommen.

[himitsu]

Dieses Verhalten kennt ein Delphi-Entwickler allerdings nicht,
also daß sich die Anwendung um die "Auswertung" dieser Flags selber kümmern muß,
denn die VCL macht das schon für uns ... drum könnte man fast denken, daß das alle Programme so machen müßten :lol:

[hitzi]

Letzter Versuch ... sonst muss ich doch die entsprechende Funktion hooken. :)

Kann man einem Programm schon als Startparameter ein Parent übergeben, so dass das externe Programm von mir aus in einem Panel von meinem Programm gestartet wird? Damit könnte man das in den Vordergrund springen meiner Meinung nach auch unterdrücken - aber ich bin mir nicht sicher, ob man schon beim Start (ShellExecute, CreateProcess) irgendwie schon ein Parent mit angeben kann. Im Nachhinein mit SetParent bringt es ja leider nichts.

[himitsu]

Zitat:

Zitat von hitzi

Letzter Versuch ...

Nee, da du ja nur als Parent eines Fensters eintreten kannst, aber beim Start gibt es nur die Application (eventuell schon threads), aber die Fenster erstellt ja die App erst später.

[hitzi]

Ok, überzeugt :) Muss ich eben doch nen Hook implementieren.

Danke für die Infos :thumb:

[himitsu]

Wenn es dir egal ist, ob die Anwendung sichtbar ist, dann könntest du sie auf einem anderem Desktop starten (geht ja mit CreateProcess) und die dort erstellten Fenster auf den Hauptdesktop so zurückschieben, daß sie dort nicht stören.

[hitzi]

Auf nen anderen Desktop erstellen und dann wieder zurück auf den Hauptdesktop holen? Ich dachte Programme sind immer an den Desktop gebunden auf dem sie erstellt wurden. Irgendwie hatte ich das mal gelesen, als ich mich über CreateDesktop schlau gemacht hatte.
Die Sichtbarkeit ist mir egal beim Start des externen Programmes, der Benutzer muss nur später die Möglichkeit haben, das Fenster wieder anzeigen zu lassen - müsste also vom anderen Desktop wieder zurück zum Hauptdesktop. Ist dieser Desktopwechsel ohne Programmneustart machbar?

[himitsu]

Ja, sowas hab ich auch gelesen,
aber es gibt doch so Multi-Desktop-Programme und da kann man doch auch die Fenster zwischen den Desktops bewegen?

[hitzi]

Laut dem Thread hier, wird bei den virtuellen Desktops ne andere Technik verwendet.

[hitzi]

Ich hab das Ganze grad mit einer Verknüpfung zum externen Programm durchgespielt. Verknüpfung -> Eigenschaften -> Verknüpfung -> Ausführen; Minimiert. Programm wird minimiert gestartet ohne in den Vordergrund zu springen und ohne Darstellungsfehler wie beim Minimierten Starten mit Shellexecute (siehe erstes Post).

Welche Möglichenkeiten gibt es ein externes Programm minimiert zu starten? Eine Alternative für mich wäre jetzt noch über mein programm eine Verknüpfung zum externen Programm zu erstellen mit dem Parameter minimiert starten und dann eben das Programm immer über diese Verknüpfung zu starten. Aber ich denke, da gibt es einen direkteren Weg - eben den Weg der genutzt wird um ein Programm im Explorer durch einer Verknüpfung minimiert starten zu lassen.
Nochmal zur Erinnerung (erstes Post) - ich weiß wie ich ein programm minimiert mit Shellexecute starten kann, nur dann wird das Programmfenster nicht richtig dargestellt, wenn man es später wieder hochholt(siehe Screenshots im ersten Post).

[SirThornberry]

schon sehr komisch das es mit einer Verknüpfung funktioniert aber nicht mit ShellExecute. Wie sieht konkret dein ShellExecute Aufruf aus?

[hitzi]

Ich hatte mich gestern Abend zu früh gefreut :( Die Tests mit der Verknüpfung liefen alle manuell im Windows Explorer ab. Sobald ich so eine Verknüpfung mit ShellExecute (starte: programm.lnk) aus Delphi heraus starte, wird die Einstellung "minimiert Starten" ignoriert. Sehr schade.

[SirThornberry]

Wie sieht denn nun dein ShellExecute Aufruf aus? :glaskugel:

[hitzi]

Hier ist der Code. Der stammt von himitsu aus dem Post:

Delphi-Quellcode:

function Exec(Filename, Params: String;
                     WindowState: Word = SW_SHOWNORMAL): boolean;
var
  {$IFDEF UNICODE} ShExecInfoW: SHELLEXECUTEINFOW; {$ENDIF}
  ShExecInfoA: SHELLEXECUTEINFOA;
begin
  Result := false;
  if (Filename = '') or not FileExists(FileName) then
    exit;
  {$IFDEF UNICODE}
  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    ShExecInfoW.Wnd          := GetForegroundWindow;
    ShExecInfoW.cbSize       := SizeOf(SHELLEXECUTEINFOW);
    ShExecInfoW.fMask        := SEE_MASK_DEFAULT;
    ShExecInfoW.lpVerb       := 'open';
    ShExecInfoW.lpFile       := PWideChar(WideString(Filename));
    ShExecInfoW.lpParameters := PWideChar(WideString(Params));
    ShExecInfoW.lpDirectory  := PWideChar(WideString(ExtractFileDir(Filename)));
    ShExecInfoW.nShow        := WindowState;
    Result := ShellExecuteExW(@ShExecInfoW);
  end
  else
  {$ENDIF}
  begin
    ShExecInfoA.Wnd          := GetForegroundWindow;
    ShExecInfoA.cbSize       := sizeof(SHELLEXECUTEINFOA);
    ShExecInfoA.fMask        := SEE_MASK_DEFAULT;
    ShExecInfoA.lpVerb       := 'open';
    ShExecInfoA.lpFile       := PAnsiChar(AnsiString(Filename));
    ShExecInfoA.lpParameters := PAnsiChar(AnsiString(Params));
    ShExecInfoA.lpDirectory  := PAnsiChar(AnsiString(ExtractFileDir(Filename)));
    ShExecInfoA.nShow        := WindowState;
    Result := ShellExecuteExA(@ShExecInfoA);
  end;
end;

//Aufruf:

Exec('c:\test\test.lnk', '', SW_MINIMIZE); //startet ganz normal, d.h. Programmfenster ist nach dem Start sichtbar
Exec('c:\test\test.lnk', '', SW_SHOWMINNOACTIVE); //startet das Programm minimiert, aber es treten die im ersten Post gezeigten Darstellungsfehler auf

[EDIT] Oh Mann ... ich hab immer an der falschen Stelle gesucht. Das Problem ist nicht der Code zum minimierten Starten, sondern der Code zum Anzeigen des externen minimierten Fensters. Starte ich das Programm mit ShellExecute und SW_SHOWMINNOACTIVE wird es minimiert gestartet und lässt auch den Focus beim aktiven Programm. Hole ich nun das Fenster mit dem folgenden Code hoch:

Delphi-Quellcode:

ShowWindow(fHandle, SW_SHOW); //das Handle wird vorher mit GetWindow() ermittelt
    ShowWindow(GetWindow(fHandle, GW_OWNER), SW_SHOW);

dann wird das Fenster mit Darstellungsfehlern angezeigt. Hole ich dagegen das Programm nach dem Programmstart das erste Mal durch einen Klick in der Taskbar wieder hoch, gibt es keine Darstellungsfehler. Nach diesem manuellen Wiederherstellen des Fenster kann ich es auch wieder minimieren und problemlos mit dem gerade genannte Code wieder nach oben holen, ohne dass irgendwelche Darstellungsfehler auftreten. Wo könnte hier das Problem liegen?