Delphi-Quellcode:
procedure TForm2.RadioButton1Click(Sender: TObject);
var c:Char;
total, avail:Int64; <- Das hier hast Du vergessen
begin
For c:='c' to 'z' do begin
// Hier noch prüfen, ob Laufwerk eine Festplatte ist
DiskInfo(c, total, avail);
ListBox1.Items.Add('Freier Speicher auf Laufwerk '+c+': '+IntToStr(avail div 1024 div 1024)+' MB))'; // Beispiel
end;
end;
Der aufruf von DiskInfo funktioniert jetzt nur mehr mit einem Buchstaben (Char) im 1. Parameter.
"For c:='c' to 'z' do begin" bewirkt, das alle Laufwerke von C: bis Z: abgefragt werden.