Das mit dem FileCache ist nicht so wichtig.
Delphi-Quellcode:
var
SW: TStopwatch;
i, X: Integer;
D1, D2, D3: Integer;
const
FILE_: string = '\\?\D:\2017-06-12 16-54-48.mkv';
begin
SW := TStopwatch.Create;
SW.Start;
for i := 0 to 9999 do
X := GetFileSizeA(FILE_);
SW.Stop;
D1 := SW.ElapsedMilliseconds;
SW := TStopwatch.Create;
SW.Start;
for i := 0 to 9999 do
X := GetFileSizeB(FILE_);
SW.Stop;
D2 := SW.ElapsedMilliseconds;
SW := TStopwatch.Create;
SW.Start;
for i := 0 to 9999 do
X := GetFileSizeC(FILE_);
SW.Stop;
D3 := SW.ElapsedMilliseconds;
Caption := X.ToString; // nur, damit X nicht wegoptimiert wird
Caption := D1.ToString + ' - ' + D2.ToString + ' - ' + D3.ToString;