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 Application.ProcressMessage; , in einer Schleife.

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


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

[Sir Rufo]

Zitat von himitsu:

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


PS: vorher z.B. Enabled der Form auf False setzen
(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).