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.