Explorar o código

Add command line in verbose mode

Pierre Muller hai 1 ano
pai
achega
3bee7636dd
Modificáronse 1 ficheiros con 3 adicións e 1 borrados
  1. 3 1
      tests/utils/dosbox/dosbox_wrapper.pas

+ 3 - 1
tests/utils/dosbox/dosbox_wrapper.pas

@@ -427,7 +427,9 @@ begin
     DosBoxProcess.Parameters.Add(ADosBoxDir + 'dosbox.conf');
     if hide_execution then
       DosBoxProcess.ShowWindow := swoHIDE;
-    DosBoxProcess.Execute;
+    if verbose then
+      writeln('Starting ',ADosBoxBinaryPath+' -conf dosbox.conf');
+     DosBoxProcess.Execute;
     repeat
       Inc(Time);
       if (Time > 10*dosbox_timeout) and do_exit then