Browse Source

* SetFilePointerEx, requested on forum.

(cherry picked from commit 1ccc23fa7009aaa7d8ac756768e3d2712ae2be47)
marcoonthegit 10 tháng trước cách đây
mục cha
commit
0c48f0eb4d
2 tập tin đã thay đổi với 3 bổ sung1 xóa
  1. 2 1
      rtl/win/wininc/func.inc
  2. 1 0
      rtl/win/wininc/redef.inc

+ 2 - 1
rtl/win/wininc/func.inc

@@ -1371,7 +1371,8 @@ function CONSOLE_REAL_OUTPUT_HANDLE : HANDLE;
   function Thread32Next(hSnapshot: HANDLE; var lpte: THREADENTRY32): BOOL; stdcall; external KernelDLL;
   function Toolhelp32ReadProcessMemory(th32ProcessID: DWORD; lpBaseAddress: pointer; lpBuffer: pointer; cbRead: SIZE_T; lpNumberOfBytesRead: PSIZE_T): BOOL; stdcall; external KernelDLL;
   function GetFileSizeEx(InFileHandle : THANDLE;OutFileSize  : PLARGE_INTEGER): BOOL; stdcall; external kernelDLL; 
- 
+  function SetFilePointerEx(InFile : THANDLE; InDistanceToMove : LARGE_INTEGER;OutoptNewFilePointer : PLARGE_INTEGER;InMoveMethod : DWORD): BOOL; stdcall; external KernelDLL;
+  
 {$endif read_interface}
 
 {$ifdef read_implementation}

+ 1 - 0
rtl/win/wininc/redef.inc

@@ -1010,6 +1010,7 @@ function OpenWaitableTimer(dwDesiredAccess:DWORD;bInheritHandle:BOOL;lpTimerName
 
 // native int64 typed overload.
 function GetFileSizeEx(InFileHandle : THANDLE;OutFileSize  : PINT64): BOOL; stdcall; external kernelDLL; 
+function SetFilePointerEx(InFile : THANDLE; InDistanceToMove : Int64;OutoptNewFilePointer : PInt64;InMoveMethod : DWORD): BOOL; stdcall; external KernelDLL;
 
 // windows because of Delphi compat.