Einzelnen Beitrag anzeigen

Benutzerbild von Sunlight7
Sunlight7

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

Re: Freier-/Belegter Speicher von Laufwerken

  Alt 5. Okt 2006, 20:40
Hallo,

das was mal so ohne hinzusehehen auffällt:

procedure Button1Click(Sender: TObject); Das Ding gehört raus, dann sollten mal ein paar Fehler weniger sein.

Edit: Die Funktion DiskInfo geht einfacher:
Delphi-Quellcode:
function DiskInfo(Drive:Char; var total, avail: Int64): Boolean;
begin
  Result:=GetDiskFreeSpaceEx(PChar(Drive+':\'), avail, total, nil);
end;
Dann kannst Du (2. Frage) einfach darauf zugreifen:

Delphi-Quellcode:
var c:Char;
begin
   For c:='cto 'zdo begin
      // Hier noch prüfen, ob Laufwerk eine Festplatte ist
      DiskInfo(c, total, avail);
      ...
   end;
end;
Edit2: Da sehe ich nochwas:
"var TotalSpace, AvailSpace: Int64;" gehört gleich nach
"procedure TForm2.Button1Click(Sender: TObject);"
Dann klappts auch mit dem Nachbarn ähm Compiler.
Windows: Ja - Microsoft: Nein -> www.ReactOS.org
  Mit Zitat antworten Zitat