Einzelnen Beitrag anzeigen

Benutzerbild von Sunlight7
Sunlight7

Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
 
Delphi 5 Standard
 
#4

Re: Freier-/Belegter Speicher von Laufwerken

  Alt 5. Okt 2006, 21:20
Delphi-Quellcode:
procedure TForm2.RadioButton1Click(Sender: TObject);
   var c:Char;
       total, avail:Int64; <- Das hier hast Du vergessen
begin
   For c:='cto 'zdo 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.
Windows: Ja - Microsoft: Nein -> www.ReactOS.org
  Mit Zitat antworten Zitat