mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 22:48:00 +02:00
10 lines
219 B
ObjectPascal
10 lines
219 B
ObjectPascal
Program Example6;
|
|
uses Dos;
|
|
|
|
{ Program to demonstrate the DiskSize and DiskFree function. }
|
|
|
|
begin
|
|
WriteLn('This partition size has ',DiskSize(0),' bytes');
|
|
WriteLn('Currently ',DiskFree(0),' bytes are free');
|
|
end.
|