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