Hoi,
erstens:
Delphi-Quellcode:
Label8.Caption := IntToStr(Round((totalSpace - freeSpace) / totalSpace * 100)) +
' % belegt.';
if label8.caption < '79' then label8.Font.color:= clLime
else label8.Font.color:= clred;
if label8.caption > '90' then
ShowMessage ('Achtung! Maximale Speicherkapazität von Laufwerk P fast erreicht.');
Die Überprüfung wird so nicht korrekt stattfinden ... man kann einen String nicht auf größer/kleiner Überprüfen ...
damit der Code so funktionieren soll wie du es dir warscheinlich gedacht hast, müsste man ihn ein bisschen umschreiben:
Delphi-Quellcode:
freespace := Round((totalSpace - freeSpace) / totalSpace * 100);
Label8.Caption := IntToStr(freespace) + ' % belegt.';
if freespace < 79 then label8.Font.color:= clLime
else label8.Font.color:= clred;
if freespace > 90 then
ShowMessage ('Achtung! Maximale Speicherkapazität von Laufwerk P fast erreicht.');[/
freespace ist natürlich ein Integer!
nun zu deinem eigentlichen Prob ... du hast doch probleme mit dem Lesen/Schreiben in die Registry, oder? Also such mal nach
Registry oder
Registry. Du solltest eigentlich fündig werden.