소스 검색

* close all handles

git-svn-id: trunk@4562 -
florian 19 년 전
부모
커밋
f35652737e
1개의 변경된 파일4개의 추가작업 그리고 0개의 파일을 삭제
  1. 4 0
      rtl/win64/system.pp

+ 4 - 0
rtl/win64/system.pp

@@ -370,7 +370,11 @@ begin
    begin
      Close(stderr);
      Close(stdout);
+     Close(erroutput);
+     Close(Input);
+     Close(Output);
      { what about Input and Output ?? PM }
+     { now handled, FPK }
    end;
   remove_exception_handlers;