Browse Source

* SetFilePointerEx, requested on forum.

marcoonthegit 9 months ago
parent
commit
1ccc23fa70
2 changed files with 3 additions and 1 deletions
  1. 2 1
      rtl/win/wininc/func.inc
  2. 1 0
      rtl/win/wininc/redef.inc

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

@@ -1372,7 +1372,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.