Jelajahi Sumber

Add command line in verbose mode

Pierre Muller 1 tahun lalu
induk
melakukan
3bee7636dd
1 mengubah file dengan 3 tambahan dan 1 penghapusan
  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