Free disc space
lazarus / 8-Other

----------------------------------------------------------------------
mrdebug · 2008-02-21 09:17

How I get free disc space on Windows and Linux?

Thanks!

----------------------------------------------------------------------
vrull · 2008-02-21 22:47

Try
 DiskFree(n : byte) : longint;
 DiskSize(n : byte) : longint;

0 - is current drive
How to get n for non-current drive, I don't know. On my Ubuntu box
this code shows same disk for n = 0 and n = 3, other s are zeroes. (I
have two more drives mounted).
const
  MB = 1024 *1024;
var
  b : byte;
begin
for b := 0 to 26 do
  writeln(b, ':  ', DiskSize(b) div MB, ' MB  ', DiskFree(b) div MB, '
MB');
end;