<br><font size=2 face="sans-serif">This worked great. Thanks for the help...</font>
<br>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td>
<td><font size=1 face="sans-serif"><b>Rich Pasco <pasco@acm.org></b></font>
<br><font size=1 face="sans-serif">Sent by: fpc-pascal-admin@deadlock.et.tudelft.nl</font>
<p><font size=1 face="sans-serif">07/30/2002 08:56 PM</font>
<br><font size=1 face="sans-serif">Please respond to fpc-pascal</font>
<br>
<td><font size=1 face="Arial">        </font>
<br><font size=1 face="sans-serif">        To:        fpc-pascal@deadlock.et.tudelft.nl</font>
<br><font size=1 face="sans-serif">        cc:        </font>
<br><font size=1 face="sans-serif">        Subject:        Re: [fpc-pascal]Integer type?</font></table>
<br>
<br>
<br><font size=2 face="Courier New">P.S.  Here is a complete, working program, based on the information<br>
in my previous post:<br>
<br>
uses Windows;<br>
<br>
var<br>
  BytesAvail : TLargeInteger;<br>
  BytesTotal : TLargeInteger;<br>
  BytesFree : TLargeInteger;<br>
  RootDir : array [1..4] of char;<br>
<br>
begin<br>
  RootDir := 'C:\' + #$0;<br>
  GetDiskFreeSpaceEx (@RootDir,BytesAvail,BytesTotal,@BytesFree);<br>
  WriteLn(BytesAvail.quadpart, ' bytes avail');<br>
  WriteLn(BytesTotal.quadpart, ' bytes total');<br>
  WriteLn(BytesFree.quadpart,  ' bytes free');<br>
end.<br>
<br>
<br>
<br>
_______________________________________________<br>
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org<br>
http://lists.freepascal.org/mailman/listinfo/fpc-pascal<br>
</font>
<br>
<br>