Moin, ich hab in der Delphi-Hilfe den Code zum auslesen der Festplattengrösse gefunden
und ein klein wenig geändert. Klappt auch alles wunderbar, aber am Ende soll geprüft werden
ob mehr als ein Gigabyte frei ist, wenn nicht soll in label3 eine Meldung ausgegeben werden.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
platz: string;
prozent: string;
partition: Int64;
total: Int64;
begin
partition := DiskFree(4);
total := DiskSize(4);
prozent := IntToStr
(100 * partition div total) + 'Prozent frei: ';
label1.caption := prozent;
platz := Inttostr
(partition div 1024 div 1024 div 1024) + ' Gbytes frei. ' ;
Label2.Caption := platz;
if platz < 1 then label3.Caption := 'Platte aufräumen';
end;
Jetzt klappt das vergleichen aber nicht!!!
Gruss