Dateigröße ohne Öffnen der Datei berechnen

[Nils_13]

Hi,

ich möchte von allen Dateien die Dateigröße anzeigen lassen können. Bisher tat es immer diese Funktion:

Delphi-Quellcode:

function GetFileSize(const FileName : String): Int64;
var FileStream: TFileStream;
begin
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
  try
    try
      Result := FileStream.Size;
    except
      Result := 0;
    end;
  finally
    FileStream.Free;
  end;
end;

Wenn ich allerdings die Größe meiner Auslagerungsdatei haben möchte, kriege ich wegen dem FileStream sofort eine Zugriffsverletzung, da man nicht die Berechtigung hat, diese Datei zu öffnen. Wie könnte man dennoch die größe bestimmen ?