Freier-/Belegter Speicher von Laufwerken

[Sunlight7]

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:='c' to 'z' do 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.