paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 06:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* SetFilePointerEx, requested on forum.

Browse Source
This commit is contained in:
marcoonthegit 2024-11-07 12:22:49 +01:00
parent 3f4298dbca
commit 1ccc23fa70
2 changed files with 3 additions and 1 deletions
rtl/win/wininc
func.incredef.inc

3
rtl/win/wininc/func.inc
View File

@ -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
rtl/win/wininc/redef.inc
View File

@ -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.