Browse Source

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

cobines 15 năm trước cách đây
mục cha
commit
a8e2f4e2aa
1 tập tin đã thay đổi với 3 bổ sung0 xóa
  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}