Hallo,
ich lasse mir den freien Festplattenspeicher wie folgt ermitteln:
Delphi-Quellcode:
procedure TSpeicher.DriveComboBox1Click(Sender: TObject);
var
s: string[255];
frei,
gesamt: Double;
begin
s:= UpperCase(DriveComboBox1.Drive);
frei := diskfree(ord(s[1])-64);
gesamt:= disksize(ord(s[1])-64);
label1.caption := format('Frei : %12.0n',[frei]);
label2.caption := format('Gesamt: %12.0n',[gesamt]);
Gauge1.Value :=round((gesamt-frei)/gesamt*100);
end;
Wie kann man nun den freien Speicherplatz z.b. bei einer Musikaufnahme ständig aktualisieren lassen???
Danke!!!