[fpc-pascal]Integer type?

Rich Pasco pasco at acm.org
Wed Jul 31 02:56:48 CEST 2002

P.S.  Here is a complete, working program, based on the information
in my previous post:

uses Windows;

  BytesAvail : TLargeInteger;
  BytesTotal : TLargeInteger;
  BytesFree : TLargeInteger;
  RootDir : array [1..4] of char;

  RootDir := 'C:\' + #$0;
  GetDiskFreeSpaceEx (@RootDir,BytesAvail,BytesTotal, at BytesFree);
  WriteLn(BytesAvail.quadpart, ' bytes avail');
  WriteLn(BytesTotal.quadpart, ' bytes total');
  WriteLn(BytesFree.quadpart,  ' bytes free');

More information about the fpc-pascal mailing list