Überwachung von freiem Festplattenspeicher

[Bummi]

Selber machen?

Timer und G_SizeRecArray rausmalen?

Delphi-Quellcode:

type
 TSizeRec=Record
 LW:String;
 Size:Int64;
 Free:Int64;
 End;
 TSizeRecArray=Array of  TSizeRec;
var
 G_SizeRecArray:TSizeRecArray;

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Byte;
  size:Int64;
begin
 SetLength(G_SizeRecArray,0);
 for I := 1 to 27 do
   begin
     size := DiskSize(i);
     if Size>0 then
        begin
           SetLength(G_SizeRecArray,High(G_SizeRecArray) + 2);
           G_SizeRecArray[High(G_SizeRecArray)].LW := Char(i + 64);
           G_SizeRecArray[High(G_SizeRecArray)].Size := Size;
           G_SizeRecArray[High(G_SizeRecArray)].Free := DiskFree(i);
        end;
   end;
end;