Int64 und Delphi 3

[Chegga]

Hi,

Zitat von Ati:

ich sitze gerade an einem Progamm, welches unter anderem die Festplattengröße auslesen soll.

Antwort:

Delphi-Quellcode:

procedure ...(...);
var
  Gesamt: Double;
begin
  Gesamt := DiskSize(3);
  Form1.Caption := Format('Gesamtgröße: %12.0n',[Gesamt]);
end;

Dann noch zur Info:
DiskSize gibt die die Größe in Byte des angegebenen Laufwerks zurück;
0 ist dabei das aktuelle Laufwerk, 1 Laufwerk A, 2 Laufwerk B usw. DiskSize liefert –1, wenn die Laufwerksnummer ungültig ist.

MfG Marc