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.