Klar da hast du recht. Danke für das Beispiel. Ich glaube das wäre mir in 100 Jahren nicht aufgefallen.
Mit lesen und schreiben bezüglich Registry habe ich eigendlich keine Probleme.
Aber wie mache ich dann hier den Verweis auf die Daten die im EditFeld stehen?
Wenn ich z.B: nicht
s:= 'P';
sondern
s:= (Edit.text); schreibe geht´s ja wohl nicht.
Delphi-Quellcode:
procedure TForm1.Timer3Timer(Sender: TObject);
var
freeSpace, totalSpace: Double;
s: Char;
begin
s := 'P';
freeSpace := DiskFree(Ord(s) - 64);
totalSpace := DiskSize(Ord(s) - 64);
Label8.Caption := IntToStr(Round((totalSpace - freeSpace) / totalSpace * 100)) +
' % belegt.';
Sorry, mag für dich ne Dumme Frage sein, aber ich bin noch Anfänger.
Gruß Frank