123456789101112131415161718192021222324252627282930313233343536 |
- {
- This file is part of the Free Pascal run time library.
- Copyright (c) 1999-2000 by Michael Van Canneyt,
- member of the Free Pascal development team.
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- **********************************************************************}
- type
- TStatfs = packed record
- spare2, { place holder}
- bsize, { fundamental block size}
- iosize, { optimal block size }
- blocks, { total blocks}
- bfree, { blocks free}
- bavail, { block available for mortal users}
- files, { Total file nodes}
- ffree : longint; { file nodes free}
- fsid : array[0..1] of longint;
- fowner : longint; {mounter uid}
- ftype : longint;
- fflags : longint; {copy of mount flags}
- spare : array [0..1] of longint; { For later use }
- fstypename : array[0..15] of char;
- mountpoint : array[0..89] of char;
- mnfromname : array[0..89] of char;
- end;
- PStatFS=^TStatFS;
|