freien Festplattenspeicher ständig aktualisieren???

[mlspider]

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!!!

[Torpedo]

Kontrolliere ihn jede Sekunde. (siehe: TTimer)

[Luckie]

In dem du DiskFree in einem Timer Ereiegnis oder in einem Thread regelmäßig aufrufst.

[mlspider]

An einen Timer habe ich auch schon gedacht. Nur wie?

[Torpedo]

Erstelle einen Timer, anschließend stellst ein Intervall ein, z.B. 1000 (=1 Sekunde).
Im OnTimer-Event aktualisierst du den freien Speicherplatz.
Wie das funktionierst weißt du ja schon.

[Binärbaum]

z.B. so:

Delphi-Quellcode:

Timer1.Interval:= 1000;
Timer1.OnTimer:= DriveComboBox1Click;
Timer1.Enabled:= True;

[mlspider]

Man, ihr seit ja heute wieder fix!!! Irgendwie stehe ich heute völlig neben meine Schuhe.

Delphi-Quellcode:

procedure TSpeicher.Timer1Timer(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;

So wird ein Schuh drauß.

Danke nochmals!!!

[Binärbaum]

Ja, so geht es auch.
Ich wollte eigentlich nur sagen, dass du, wenn du die Prozedur TSpeicher.DriveComboBox1Click(Sender: TObject) schon hast, diese Prozedur auch dem Timer als Ereignisprozedur zuweisen kannst, da die erwarteten Parameter ja die gleichen sind. Dann muss man das ganze nicht zweimal schreiben. :wink:

MfG
Binärbaum

[mlspider]

Stimmt. Und so sieht das Resultat meines Projekts aus.

Player.jpg