Subj : Dfree source code
To   : All
From : Nick Andre
Date : Wed Jul 26 2023 17:46:42

Quick and dirty Freepascal program to report drive space free.

Used here for Darkrealms nightly reporting.

program dfree;
uses dos;

var mb : longint;
err : integer;
t : text;

begin
  writeln('Dfree 1.0/Win32 Copyright (c) by Nick J. Andre, Ltd.');
  writeln;
  if paramstr(1)>'' then
   begin
    val(paramstr(1),mb,err);
    if (err=0) then
     begin
      if ((DiskFree(0) div 1024) div 1024)<=mb then
       begin
        writeln('Less than '+paramstr(1));
        assign(t,'DFREE.!!!');
        (*$I-*) rewrite(t);
        if ioresult=0 then close(t);
       end
       else
        writeln('Greater than '+paramstr(1));
      end;
   end
   else
   begin
    writeln('Usage: DFREE [size in MB]');writeln;
    writeln('DFREE creates DFREE.!!! if the disk space is less than 
specified.');
   end;
end.

Nick

--- Renegade vY2Ka2
 * Origin: Joey, do you like movies about gladiators? (618:500/24)

.