paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use always GetDiskFreeSpaceEx on Winx64

Browse Source 
git-svn-id: trunk@3214 -
This commit is contained in:
florian 2006-04-15 16:56:15 +00:00
parent 598853240c
commit 58c01ffd59
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win/dos.pp
View File

@ -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