blob: cfc2f76e4289847a9044bd8bb5dcba6546dd5bcc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
uses
sysutils,dos;
begin
Writeln('Dos DiskSize = ',Dos.DiskSize(0));
Writeln('Sysutils DiskSize = ',SysUtils.DiskSize(0));
Writeln('Dos DiskFree = ',Dos.DiskFree(0));
Writeln('Sysutils DiskFree = ',SysUtils.DiskFree(0));
if Dos.DiskSize(0)<>SysUtils.DiskSize(0) then
Begin
Writeln('Error with DiskSize');
Halt(1);
End;
end.
|
