From 58c01ffd598e0b2e1df09b25933a8344934c6aa2 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 15 Apr 2006 16:56:15 +0000
Subject: [PATCH] * use always GetDiskFreeSpaceEx on Winx64

git-svn-id: trunk@3214 -
---
 rtl/win/dos.pp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/rtl/win/dos.pp b/rtl/win/dos.pp
index ade7b9e938..ee98704320 100644
--- a/rtl/win/dos.pp
+++ b/rtl/win/dos.pp
@@ -326,9 +326,9 @@ end;
                                --- Disk ---
 ******************************************************************************}
 
-   function GetDiskFreeSpace(drive:pchar;var sector_cluster,bytes_sector,
-                             freeclusters,totalclusters:longint):longbool;
-     stdcall; external 'kernel32' name 'GetDiskFreeSpaceA';
+function GetDiskFreeSpace(drive:pchar;var sector_cluster,bytes_sector,
+                          freeclusters,totalclusters:DWORD):longbool;
+  stdcall; external 'kernel32' name 'GetDiskFreeSpaceA';
 type
    TGetDiskFreeSpaceEx = function(drive:pchar;var availableforcaller,
                              total,free):longbool;stdcall;
@@ -798,9 +798,11 @@ begin
    GetVersionEx(versioninfo);
    kernel32dll:=0;
    GetDiskFreeSpaceEx:=nil;
+{$ifndef win64}
    if ((versioninfo.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS) and
      (versioninfo.dwBuildNUmber>=1000)) or
      (versioninfo.dwPlatformId=VER_PLATFORM_WIN32_NT) then
+{$endif win64}
      begin
         kernel32dll:=LoadLibrary('kernel32');
         if kernel32dll<>0 then