Größe einer Festplatte ermitteln

[Neutral General]

Ich möchte gerne die Größe meiner Festplatte in MB angezeigt haben !
Wie macht man so was ?

[Christian Seehase]

Moin Neutral General,

schau Dir dazu mal die API Funktion GetDiskFreeSpaceEx im PSDK an.

[Luckie]

Delphi-Quellcode:

function FreeDiskSpace(const Drive: string; var FreeBytesAvailable,
  TotalNumberOfBytes, TotalNumberOfFreeBytes: TLargeInteger): Boolean;
begin
  result := GetDiskFreeSpaceEx(pointer(Drive), FreeBytesAvailable,
    TotalNumberOfBytes, @TotalNumberOfFreeBytes);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  FreeAvailable, Total, FreeBytes: TLargeInteger;
begin
  if FreeDiskSpace('c:\Programme', FreeAvailable, Total, FreeBytes) then
    with Listbox1.Items do
    begin
      Add(IntToStr(FreeAvailable));
      Add(IntToStr(Total));
      Add(IntToStr(FreeBytes));
    end
  else
    RaiseLastOSError();
end;

[Brüggendiek]

Hallo!

Warum einfach, wenn es auch kompliziert geht! :mrgreen:

Es gibt in Delphi eine Funktion dafür: "DiskSize".
Die hat einen Vorteil und einen Nachteil:
Der Vorteil: sie liefert Int64 und damit den richtigen Wert (nicht auf 2GB begrenzt).
Der Nachteil: Es ist eine uralte CP/M-Funktion. Sie erwartet das Laufwerk als Zahl mit 0=aktuelles Laufwerk, 1=A usw. Sollte aber leicht umrechenbar sein *gg*.

Gruß

Dietmar Brüggendiek