소스 검색

FIX: Don't show Windows error dialog when cannot retrieve drive free space.

cobines 15 년 전
부모
커밋
a8e2f4e2aa
1개의 변경된 파일3개의 추가작업 그리고 0개의 파일을 삭제
  1. 3 0
      src/platform/uOSUtils.pas

+ 3 - 0
src/platform/uOSUtils.pas

@@ -589,9 +589,12 @@ end;
 {$ELSE}
 var
   wPath: WideString;
+  OldErrorMode: Word;
 begin
   wPath:= UTF8Decode(Path);
+  OldErrorMode:= SetErrorMode(SEM_FAILCRITICALERRORS or SEM_NOOPENFILEERRORBOX);
   Result:= GetDiskFreeSpaceExW(PWChar(wPath), FreeSize, TotalSize, nil);
+  SetErrorMode(OldErrorMode);
 end;
 {$ENDIF}