do
            {
              if(UpdatePosInfo(0ULL,subadd)) break;
              if(!MyReadFile(hIn,buff,sizeof(buff),&dReaded,NULL,flags))
              {
                Log(L"ReadFile",src,NULL); Ok=FALSE; break;
              }
              subadd+=dReaded;
              if(!MyWriteFile(hOut,buff,dReaded,&dWritten,NULL,flags))
              {
                Log(L"WriteFile",dest,NULL); Ok=FALSE; break;
              }
} while(dReaded==sizeof(buff));

static BOOL MyReadFile(HANDLE hFile,PVOID lpBuffer,DWORD nNumberOfBytesToRead,PDWORD lpNumberOfBytesRead,LPOVERLAPPED lpOverlapped,DWORD *flags)
{
  WRAPPER_PROLOG(0,BOOL)
  ReadFile(hFile,lpBuffer,nNumberOfBytesToRead,lpNumberOfBytesRead,lpOverlapped);
  WRAPPER_EPILOG(0,ERROR_SUCCESS)
}

static BOOL MyWriteFile(HANDLE hFile,LPCVOID lpBuffer,DWORD nNumberOfBytesToWrite,PDWORD lpNumberOfBytesWritten,LPOVERLAPPED lpOverlapped,DWORD *flags)
{
  WRAPPER_PROLOG(0,BOOL)
  WriteFile(hFile,lpBuffer,nNumberOfBytesToWrite,lpNumberOfBytesWritten,lpOverlapped);
  WRAPPER_EPILOG(0,ERROR_SUCCESS)
}

program testcopy;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  WinAPI.Windows,
  System.SysUtils;

var
  Time: Cardinal;
begin
  try
    if ParamCount = 0 then
      raise Exception.Create('Usage: testcopy.exe "filename"');
    Time := GetTickCount;
    CopyFile(PChar(ParamStr(1)), PChar('.\' + ExtractFileName(ParamStr(1))), False);
    WriteLn('CopyFile: ', GetTickCount - Time, 'ms.');
    Time := GetTickCount;
    CopyFileEx(PChar(ParamStr(1)), PChar('.\' + ExtractFileName(ParamStr(1))), nil, nil, nil, 0);
    WriteLn('CopyFileEx: ', GetTickCount - Time, 'ms.');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.