Hallo! Ich würde gerne die JCL Funktion ShellExecAndWait als Basis für eine Variante benutzen, die bei Überschreiten einer bestimmten Zeitspanne zurückkehrt (mit Result = False), um eine Fehlfunktion bei der Ausführung des Prozesses zu behandeln.
Natürlich geht es nicht um die 'perfekte' Lösung sondern nur um das 'gut genug'
Delphi-Quellcode:
function ShellExecAndWait(const FileName: string; const Parameters: string;
const Verb: string; CmdShow: Integer; const Directory: string): Boolean;
var
Sei: TShellExecuteInfo;
Res: LongBool;
Msg: tagMSG;
begin
FillChar(Sei, SizeOf(Sei), #0);
Sei.cbSize := SizeOf(Sei);
Sei.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS or
SEE_MASK_FLAG_DDEWAIT;
Sei.lpFile := PChar(FileName);
Sei.lpParameters := PCharOrNil(Parameters);
Sei.lpVerb := PCharOrNil(Verb);
Sei.nShow := CmdShow;
Sei.lpDirectory := PCharOrNil(Directory);
{$T+}
Result := ShellExecuteEx(@Sei);
{$T-}
if Result then
begin
WaitForInputIdle(Sei.hProcess, INFINITE);
while WaitForSingleObject(Sei.hProcess, 10) = WAIT_TIMEOUT do
repeat
Res := PeekMessage(Msg, Sei.Wnd, 0, 0, PM_REMOVE);
if Res then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
until not Res;
CloseHandle(Sei.hProcess);
end;
end;
Zu WaitForInputIdle habe ich den Hinweis gefunden, dass die Funktion nicht wartet, wenn es eine Konsolenanwendung ist. Meine Anwendung wird eine Konsolenanwendung sein, somit wäre eine Möglichkeit nur noch, in der folgenden while Schleife nach einer bestimmten Anzahl von Durchläufen abzubrechen.
Was wäre aber wenn z.B. WaitForSingleObject nicht zurückkehrt? Unter
http://www.latiumsoftware.com/en/delphi/00003.php wird diese Möglichkeit erwähnt, und eine (timerbasierte) Lösung vorgeschlagen um den Prozess mit GetExitCodeProcess zu überwachen und notfalls mit TerminateProcess zu beenden. Ist das in der Praxis häufig anzutreffen oder nur bei genereller Schlechtwetterlage des Betriebssystems z.B. bei Überlastung?