blob: 903cf6d3238ba5c657a540bc3c047f6942314f4e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Program Example27;
{ This program demonstrates the DiskFree function }
Uses sysutils;
Begin
Write ('Size of current disk : ',DiskSize(0));
Writeln (' (= ',DiskSize(0) div 1024,'k)');
Write ('Free space of current disk : ',Diskfree(0));
Writeln (' (= ',Diskfree(0) div 1024,'k)');
End.
|
