소스 검색

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