Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.0.0 ▾
|
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.