ソースを参照

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}