program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  Winapi.Windows,
  System.SysUtils;

var
  StartTime, StopTime: Int64;
  iCounterPerSec: Int64;
  I: Integer;

  baf: UTF8String;

procedure BeginTime;
begin
  QueryPerformanceCounter(StartTime);
end;

procedure EndTime;
begin
  if QueryPerformanceCounter(StopTime) and QueryPerformanceFrequency
    (iCounterPerSec) then
    Writeln(Format('%.6f', [(StopTime - StartTime) / iCounterPerSec]));
end;

function FileSeek64(Handle: THandle; const Offset: Int64;
  Origin: Integer): Int64;
begin
  Result := Offset;
  Int64Rec(Result).Lo := SetFilePointer(Handle, Int64Rec(Result).Lo,
    @Int64Rec(Result).Hi, Origin);
  if (Int64Rec(Result).Lo = $FFFFFFFF) and (GetLastError <> 0) then
    Int64Rec(Result).Hi := $FFFFFFFF;
end;

function LoadFile(PHPFile: PWideChar): Int64;
var
  TFile: THandle;
  r: Integer;
begin
  TFile := FileOpen(PHPFile, $0000 or $0020);
  if TFile <> INVALID_HANDLE_VALUE then
  begin
    Result := FileSeek64(TFile, 0, 2);

    FileSeek64(TFile, 0, 0);
    SetLength(baf, Result);

    ReadFile(TFile, (@baf[1])^, Result, LongWord(r), nil);

    FileClose(TFile);
  end;
end;

procedure CloseFile;
begin
  SetLength(baf, 0);
end;

begin
  BeginTime;
  Writeln('ReadLen:',
    LoadFile('D:\S.T.A.L.K.E.R. - Shadow Of Chernobyl\gamedata.db4'));
  EndTime;
  CloseFile;
  Readln;

end.