浏览代码

Add command line in verbose mode

Pierre Muller 1 年之前
父节点
当前提交
3bee7636dd
共有 1 个文件被更改,包括 3 次插入1 次删除
  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