[fpc-pascal]Integer type?

James_Wilson at i2.com James_Wilson at i2.com
Wed Jul 31 14:27:20 CEST 2002

This worked great. Thanks for the help...

Rich Pasco <pasco at acm.org>
Sent by: fpc-pascal-admin at deadlock.et.tudelft.nl
07/30/2002 08:56 PM
Please respond to fpc-pascal

        To:     fpc-pascal at deadlock.et.tudelft.nl
        Subject:        Re: [fpc-pascal]Integer type?

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');

fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20020731/281f2855/attachment.html>

More information about the fpc-pascal mailing list