// Hiermit kann die Größe sowie der freiche Speicherplatz eines Laufwerks
// ausgelesen werden.

// Getestet mit D4 unter Win98

procedure TForm1.Button7Click(Sender: TObject);
var lw:string;
total,frei:int64;
begin
lw:='C:';
GetDiskFreeSpaceEx(pchar(lw),frei,total,nil);
label1.caption:='Laufwerk '+lw+' ist '+inttostr(total div 1048576)+' MB groß.';
label2.caption:='Es sind noch '+inttostr(frei div 1048576)+' MB darauf frei.';
end;