Int64 und Delphi 3

[Flocke]

Zitat von Ati:

@Flocke
Dein Code funktioniert so nicht. Delphi meckert bei LARGE_INTEGER (undefinierter Bezeichner). Auch einändern in TLargeInteger bringt nichts. Auch eine Fehlermeldung:
"Die Typen der tatsächlichen und formalen Var-Parametermüssen übereinstimmen"

Hab (wie gesagt) kein Delphi 3.

Wenn die Deklaration von Lannes richtig ist, dann müsstest du es so schreiben können:

Delphi-Quellcode:

var
  iFreeBytesAvailable, iTotalNumberOfBytes, iTotalNumberOfFreeBytes: LARGE_INTEGER;
  xFreeBytesAvailable, xTotalNumberOfBytes, xTotalNumberOfFreeBytes: Extended;
begin
  GetDiskFreeSpaceEx('C:', PInteger(@iFreeBytesAvailable)^, PInteger(@iTotalNumberOfBytes)^, PInteger(@iTotalNumberOfFreeBytes));
  xFreeBytesAvailable := LoadInt64(iFreeBytesAvailable);
  ...
end;

Die Variante von Lannes wird aber dasselbe ausrechnen.