2GB, CheckDiskSpace, Large Disk<\/p>\n
Question and Answer Database<\/p>\n
FAQ2552D.txt Checking available disk space on large drives.
\nCategory :Windows API
\nPlatform :All
\nProduct :All 32 bit <\/p>\n
Question: Example: procedure GetDiskSizeAvail(TheDrive : PChar; if AvailToCall >= 0 then procedure TForm1.Button1Click(Sender: TObject); 7\/16\/98 4:31:28 PM<\/p>\n Trademarks & Copyright \u00a9 1998 INPRISE Corporation. Last modified on [tags]Delphi, System[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":" 2GB, CheckDiskSpace, Large Disk Question and Answer Database FAQ2552D.txt Checking available disk space on large drives. Category :Windows API Platform :All Product :All…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,113],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-3P","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/237"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=237"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/237\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=237"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=237"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=237"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nHow do I check for available diskspace on a drive larger than 2
\ngigabytes?
\n<\/em>
\nAnswer:
\nYou will need to call the Windows API function GetDiskFreeSpaceEx()
\nand convert the returned integers to doubles, since integers greater
\nthan 2 gigabytes are not supported in Delphi.<\/p>\n
\n
\n[code lang=”delphi”]function GetDiskFreeSpaceEx(lpDirectoryName: PAnsiChar;
\n var lpFreeBytesAvailableToCaller : Integer;
\n var lpTotalNumberOfBytes: Integer;
\n var lpTotalNumberOfFreeBytes: Integer) : bool;
\n stdcall;
\n external kernel32
\n name ‘GetDiskFreeSpaceExA’;<\/p>\n
\n var TotalBytes : double;
\n var TotalFree : double);
\nvar
\n AvailToCall : integer;
\n TheSize : integer;
\n FreeAvail : integer;
\nbegin
\n GetDiskFreeSpaceEx(TheDrive,
\n AvailToCall,
\n TheSize,
\n FreeAvail);
\n{$IFOPT Q+}
\n {$DEFINE TURNOVERFLOWON}
\n {$Q-}
\n{$ENDIF}
\n if TheSize >= 0 then
\n TotalBytes := TheSize else
\n if TheSize = -1 then begin
\n TotalBytes := $7FFFFFFF;
\n TotalBytes := TotalBytes * 2;
\n TotalBytes := TotalBytes + 1;
\n end else
\n begin
\n TotalBytes := $7FFFFFFF;
\n TotalBytes := TotalBytes + abs($7FFFFFFF – TheSize);
\n end;<\/p>\n
\n TotalFree := AvailToCall else
\n if AvailToCall = -1 then begin
\n TotalFree := $7FFFFFFF;
\n TotalFree := TotalFree * 2;
\n TotalFree := TotalFree + 1;
\n end else
\n begin
\n TotalFree := $7FFFFFFF;
\n TotalFree := TotalFree + abs($7FFFFFFF – AvailToCall);
\n end;
\nend;<\/p>\n
\nvar
\n TotalBytes : double;
\n TotalFree : double;
\nbegin
\n GetDiskSizeAvail(‘C:\\’,
\n TotalBytes,
\n TotalFree);
\n ShowMessage(FloatToStr(TotalBytes));
\n ShowMessage(FloatToStr(TotalFree));
\nend;
\n[\/code]<\/p>\n
\n8-December-1998. <\/p>\n