[fpc-pascal]Integer type?

[James_Wilson at i2.com]

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
        cc: 
        Subject:        Re: [fpc-pascal]Integer type?


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

uses Windows;

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

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



_______________________________________________
fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


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