Hallo zusammen,
wie kann ich die Größe einer Datei auf dem Datenträger auslesen? Bisher kann ich nur die "normale" Größe ermittlen:
Code:
function GetFileSize(const AFileName: string): Int64;
var
F: TSearchRec;
begin
Result := -1;
if FindFirst(AFileName, faAnyFile, F) = 0 then
begin
Result := F.FindData.nFileSizeLow or (F.FindData.nFileSizeHigh shl 32);
end;
end;
Allerdings brauche ich die Größe, die unter Windows als "Größe auf Datenträger" angezeigt wird.
Danke im voraus.