Laufwerkgrössen ermitteln

[Delphi.Narium]

Zitat von Delbor:

Inzwischen hab ich auch noch weiter gesucht, auch in Sachen Bit&Byte-Umrechnung und versucht, mit der gefundenen Demo auf 'einen grünen Zweig' zu kommen.

Das Problem der Demo ist: Altes Delphi und (vor allem) alte API-Funktionen, die nur bei Werten bis 2 GB richtig arbeiten. Alles, was über den Maximalwert von Integer (2147483647) hinausgeht, scheitert. Und durch diverse Überläufe beim Umgang, rechnen, ... mit diesen Werten, kommen mehr oder weniger (realitätsferne, kaum nachvollziehbare Pseudo-) Zufallswerte dabei heraus.

[Delbor]

Hi zusammen

In Sachen GetDiskFreeSpaceEx hab ich noch ganz was interessantes gefunden

Gruss
Delbor

[himitsu]

Zitat:

Delphi-Quellcode:

if UsedSpace > 0 then
  UsedSpace := ...

Irgendwie sieht das bissl falschrum aus.

Ich würde ja denken "wenn es fehlt, dann berechnen"


Und bei den Schweizern .... Warum vergessen eigentlich immer alle die Rückgabewerte von Funktionen auszuwerten?

[blawen]

Zitat von himitsu:

Warum vergessen eigentlich immer alle die Rückgabewerte von Funktionen auszuwerten?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  free_size, total_size: Int64;
begin
  if GetDiskSize(DriveComboBox1.Drive, free_size, total_size) then
    ShowMessage('free space =' +
      IntToStr(free_size) + #13 + 'total size=' +
      IntToStr(total_size))
  else
    ShowMessage('No disk in drive!');
end;

Ist doch drin - oder?
(Abgesehen davon, dass ich dieses Beispiel nicht wirklich "schön" finde)

[himitsu]

ähhhhmmm nein?

Zitat:

Delphi-Quellcode:

  begin
    GetDiskFreeSpaceEx(RootPtr, Free_size, Total_size, nil);

[blawen]

Zitat von himitsu:

ähhhhmmm nein?

Es gibt zwei Funktionen, die eine wird ausgewertet, die andere hingegen nicht.