Fremde Anwendung modal starten, Neuzeichnen des eigenen Formulars

[ernschd]

Hallo,

mit folgendem Code öffne ich erfolgreich ein fremdes Programm "modal":

Delphi-Quellcode:

FillChar(info, sizeof(info), 0);
  info.cbSize := sizeOf(info);
  info.lpVerb := 'open';
  info.lpFile := PChar(CmdLine);
  info.lpParameters := PChar(parameters);
  info.nShow := SW_SHOW;
  info.fMask := SEE_MASK_NOCLOSEPROCESS;

  ShellExecuteEx(@info);
  WaitForSingleObject(info.hProcess, Infinite);

Leider friert mir dabei mein Hauptformular ein, bzw. benötigt ein Refresh, wenn das fremde Programm im Fenster darüber gezogen wird (siehe Screenshot).

Wie kann ich das Formular neu zeichnen lassen oder dieses Verhalten umgehen? Ich habe auch schon vor dem ShellExecuteEx das Hauptformular ausgeblendet, aber das könnte den Anwender verwirren.

Danke und Grüße

[mm1256]

Delphi-Quellcode:

    if info.hProcess > 32 then begin
      WaitForInputIdle(info.hProcess, INFINITE);
      WaitForSingleObject(info.hProcess, INFINITE);
    end;

[ernschd]

Funktioniert leider nicht bei mir, es sieht noch genau so aus :(

[himitsu]

Wenn DU sagst "Warte bis fertig und mache nix Anderes", dann macht Delphi das auch.

Code in einen Thread auslagern
ODER
kein INFINITE, sondern ab und an mal

Delphi-Quellcode:

Application.ProcressMessage;

, in einer Schleife. :roll:

[ernschd]

Ok, danke, ich habe es so gelöst:

Delphi-Quellcode:

while WaitForSingleObject(info.hProcess, 50) = Wait_Object_0 do
    Application.ProcessMessages;

Edit
Die Lösung hat nur den kleinen Nachteil, dass die fremde Anwendung nicht mehr modal ist. Ich kann also munter in meinem Hauptformular rumklicken...

[Sir Rufo]

Wie schaltet man die eigene Anwendung in so einen modalen Zustand?

In dem man eine Form modal anzeigt?

[himitsu]

In einem "modalen" Fenster kann man auch rumklicken, wenn die Anwendung richtig läuft. :angle:


PS: vorher z.B. Enabled der Form auf False setzen :zwinker:
(oder den/die Button)

[Sir Rufo]

Zitat:

Zitat von himitsu (Beitrag 1324491)

In einem "modalen" Fenster kann man auch rumklicken, wenn die Anwendung richtig läuft. :angle:


PS: vorher z.B. Enabled der Form auf False setzen :zwinker:
(oder den/die Button)

Natürlich kann man da rumklicken ... und es passiert dort nur das, was ich auch zulasse ... ist ja mein Formular, da kann ich mit machen was ich will ... ;)

[himitsu]

Wollte nur sagen:

Modal bezieht sich nicht auf das Fenster selber, sondern auf andere Fenster der Anwendung ... bin ich "modal", dann sind vorherrige Fenster "Disabled".

[ernschd]

Genau, ich meine damit, dass die fremde Anwendung ganz normal bedienbar sein soll, mein Hauptformular aber so lange nicht, bis die fremde Anwendung wieder beendet wird.
So wie das Verhalten von ShowModal beim Anzeigen eines Formulars (die Hintergrundanwendung ist nicht anklickbar).

[Sir Rufo]

Und was hindert dich jetzt daran ein Formular mit ShowModal aufzurufen, das so lange angezeigt wird, wie die externe Anwendung läuft?

[ernschd]

Ich glaube, wir reden aneinander vorbei:

meine Anwendung (z.B. myApp) soll eine andere Anwendung starten (z.B. secApp). Dabei soll secApp im Vordergrund geöffnet werden, und myApp sichtbar bleiben, aber nicht bedienbar sein, so lange secApp läuft.

Das habe ich mittlerweile auch hinbekommen.

[Sir Rufo]

Wir reden nicht aneinander vorbei, du verstehst mich nur nicht ;)

Stell dir vor, du hast eine

Delphi-Quellcode:

TStarteExterneAnwendungForm

und die verwendest du wie folgt:

Delphi-Quellcode:

procedure DoRun( const CmdLine, Parameters : string );
var
  LDialog: TStarteExterneAnwendungForm;
begin
  LDialog := TStarteExterneAnwendungForm.Create( nil );
  try
    LDialog.CmdLine := CmdLine;
    LDialog.Parameters := Parameters;
    LDialog.ShowModal;
  finally
    LDialog.Free;
  end;
end;

und diese Form startet jetzt diese externe Anwendung ... und schliesst sich automatisch, wenn die externe Anwendnung beendet wurde.

Wird es jetzt klarer?

[hoika]

Hallo,
warum machst du vor dem Aufruf des fremden Programmes kein

Delphi-Quellcode:

Self.Enabled:= False;

?


Heiko

[mm1256]

Zitat:

Zitat von hoika (Beitrag 1324592)

Hallo,
warum machst du vor dem Aufruf des fremden Programmes kein

Delphi-Quellcode:

Self.Enabled:= False;

?
Heiko

Ich vermute mal, weil das am ursprünglichen Problem nichts oder nicht viel ändert, siehe Grafik in #1.

Auch das "Zwischenschalten" eines modalen Fensters ist keine "optimale" Lösung, weil das Problem ganz einfach beseitigt werden kann....

Zitat:

Zitat von ernschd (Beitrag 1324481)

Funktioniert leider nicht bei mir, es sieht noch genau so aus :(

Sorry, hat ne Weile gedauert. Das funktioniert schon genau so, und wenn es bei mir geht, muss es bei dir auch gehen. Es fehlt schlichtweg die Angabe des aufrufenden Fenster-Handles:

Delphi-Quellcode:

  info.Wnd := ....das Handle des aufrufenden Fensters