mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 09:07:17 +01:00
f7003119d0
related to this functionality, based on analysis/patch by Michael
Kamburelis (mantis #9985)
git-svn-id: trunk@12814 -
26 lines
574 B
ObjectPascal
26 lines
574 B
ObjectPascal
{ %opt=-gh }
|
|
|
|
{$mode objfpc}
|
|
|
|
uses SysUtils;
|
|
|
|
var
|
|
DiskNum: Byte;
|
|
begin
|
|
HaltOnNotReleased := true;
|
|
Writeln(DiskFree(3), '/', DiskSize(3));
|
|
|
|
{ Now get disk / by AddDisk. DiskFree and DiskSize below should return
|
|
the same (well, assuming that nothing was writeen to disk between
|
|
calls...). }
|
|
{$ifdef unix}
|
|
DiskNum := AddDisk('/');
|
|
{$else}
|
|
{ dos/windows/os/2 ... Still needs other cases for other OSes }
|
|
DiskNum := AddDisk('C:');
|
|
{$endif}
|
|
Writeln(DiskFree(DiskNum), '/', DiskSize(DiskNum));
|
|
if (disksize(3)<>disksize(disknum)) then
|
|
halt(1);
|
|
end.
|