paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 03:30:33 +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 --- --- Disk ---
******************************************************************************} ******************************************************************************}
function GetDiskFreeSpace(drive:pchar;var sector_cluster,bytes_sector, function GetDiskFreeSpace(drive:pchar;var sector_cluster,bytes_sector,
freeclusters,totalclusters:longint):longbool; freeclusters,totalclusters:DWORD):longbool;
stdcall; external 'kernel32' name 'GetDiskFreeSpaceA'; stdcall; external 'kernel32' name 'GetDiskFreeSpaceA';
type type
TGetDiskFreeSpaceEx = function(drive:pchar;var availableforcaller, TGetDiskFreeSpaceEx = function(drive:pchar;var availableforcaller,
total,free):longbool;stdcall; total,free):longbool;stdcall;
@ -798,9 +798,11 @@ begin
GetVersionEx(versioninfo); GetVersionEx(versioninfo);
kernel32dll:=0; kernel32dll:=0;
GetDiskFreeSpaceEx:=nil; GetDiskFreeSpaceEx:=nil;
{$ifndef win64}
if ((versioninfo.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS) and if ((versioninfo.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS) and
(versioninfo.dwBuildNUmber>=1000)) or (versioninfo.dwBuildNUmber>=1000)) or
(versioninfo.dwPlatformId=VER_PLATFORM_WIN32_NT) then (versioninfo.dwPlatformId=VER_PLATFORM_WIN32_NT) then
{$endif win64}
begin begin
kernel32dll:=LoadLibrary('kernel32'); kernel32dll:=LoadLibrary('kernel32');
if kernel32dll<>0 then if kernel32dll<>0 then