Prechádzať zdrojové kódy

Add command line in verbose mode

Pierre Muller 1 rok pred
rodič
commit
3bee7636dd
1 zmenil súbory, kde vykonal 3 pridanie a 1 odobranie
  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