Avoid program RTE if failing to remove temporary directory

git-svn-id: trunk@38816 -

tests/utils/dosbox/dosbox_wrapper.pas

@@ -397,7 +397,8 @@ begin
     end;
   TmpFileList.Free;
   ChDir(StartDir);
-  RmDir(ADosBoxDir);
+  if not RemoveDir(ADosBoxDir) then
+    writeln('Failed to remove dir ',ADosBoxDir);
 end;