Too stupid to execute and wait

[himitsu]

Für INFINITE könnte man noch einen ausreichend langen Timeout setzen, damit eventuelle Deadlocks gleich mit abgefangen werden.

[samso]

Ich würde vielleicht noch einmal überdenken, ob die verwendeten Flags wirklich zielführend sind. Vielleicht sollte man ja die folgende Kombination verwenden:

SEE_MASK_NOCLOSEPROCESS or SEE_MASK_WAITFORINPUTIDLE or SEE_MASK_NOZONECHECKS

Dann kann man sich vermutlich auch all dieses Application.ProcessMessages-gefrickel sparen.

[ChrisE]

Hallo,

da seh ich gerade noch:

Delphi-Quellcode:

  ShExecInfo.cbSize := sizeof(SHELLEXECUTEINFOA);

Hier sollte das A hinten noch weg.
Und dann noch eine Frage zu dem WaitFor:
Sollte man hier nicht auch auf Application.Terminated prüfen? Ist vielleicht eine Glaubensfrage für den Anwendungsfall aber ich würde es machen. Also etwa so:

Delphi-Quellcode:

repeat
RetValue := MsgWaitForMultipleObjects(1, ShExecInfo.hProcess, False, INFINITE, QS_ALLINPUT);
if RetValue <> WAIT_OBJECT_0 then
  Application.ProcessMessages;
until (RetValue = WAIT_OBJECT_0) or Application.Terminated;

Gruß, Chris

[himitsu]

Das ProcessMessages sorgt dafür, das der Thread (Hauptthread) nicht "einschläft"

WAITFORINPUTIDLE wartet "nur" bis das gestartete programm "aufnahmebereit" ist, wärend das MsgWaitFor (ohne MsgWaitFor) auf die komplette Beendigung des Programms wartet.

[QuickAndDirty]

Zitat:

Zitat von himitsu (Beitrag 1115757)

Für INFINITE könnte man noch einen ausreichend langen Timeout setzen, damit eventuelle Deadlocks gleich mit abgefangen werden.

ja aber das setup macht auch updates und die können je nach kunde auch mal 2 tage dauern....
oder hat das damit nichts zu tun?

[QuickAndDirty]

Zitat:

Zitat von samso (Beitrag 1115758)

Ich würde vielleicht noch einmal überdenken, ob die verwendeten Flags wirklich zielführend sind. Vielleicht sollte man ja die folgende Kombination verwenden:

SEE_MASK_NOCLOSEPROCESS or SEE_MASK_WAITFORINPUTIDLE or SEE_MASK_NOZONECHECKS

Dann kann man sich vermutlich auch all dieses Application.ProcessMessages-gefrickel sparen.

ich habe auch so ein paar sorgen...weil ja aus application.processmessages wieder Excpetions kommen können.... je nach dem was da verarbeitet wird.

Aber wieso erspart mir diese flag kombination das ProcessMessages?

[Luckie]

Zitat:

Zitat von ChrisE (Beitrag 1115761)

da seh ich gerade noch:

Delphi-Quellcode:

  ShExecInfo.cbSize := sizeof(SHELLEXECUTEINFOA);

Hier sollte das A hinten noch weg.

Copy and waste. ;) Ist korrigiert.

[QuickAndDirty]

Noch ne frage

wo wir gerade am tunen sind...

Delphi-Quellcode:

  ShExecInfo.Wnd := application.MainFormHandle;

Oder

Delphi-Quellcode:

  ShExecInfo.Wnd := application.Handle;

Oder

Delphi-Quellcode:

  ShExecInfo.Wnd := GetForegroundWindow;

[QuickAndDirty]

Zitat:

Zitat von Luckie (Beitrag 1115769)

Zitat:

Zitat von ChrisE (Beitrag 1115761)

da seh ich gerade noch:

Delphi-Quellcode:

  ShExecInfo.cbSize := sizeof(SHELLEXECUTEINFOA);

Hier sollte das A hinten noch weg.

Copy and waste. ;) Ist korrigiert.

dito

[Luckie]

MainFormHandle kannte mein D7 nicht, deswegen nur Handle. Und GetForeGroundWindow ist gefährlich, da dein Programmfenster beim ausführen des Codes nicht das oberste Fenster sein muss.