Speicherkontrolle von Laufwerken

[RomanK]

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.