Merge pull request #1099 from Varriount/os/getFileInfo
Added os.getFileInfo procedure.
This commit is contained in:
commit
23621857bb
3 changed files with 256 additions and 20 deletions
|
|
@ -581,6 +581,7 @@ const
|
|||
INVALID_FILE_SIZE* = -1'i32
|
||||
|
||||
FILE_FLAG_BACKUP_SEMANTICS* = 33554432'i32
|
||||
FILE_FLAG_OPEN_REPARSE_POINT* = 0x00200000'i32
|
||||
|
||||
# Error Constants
|
||||
const
|
||||
|
|
@ -715,3 +716,6 @@ proc WSASend*(s: TSocketHandle, buf: ptr TWSABuf, bufCount: DWORD,
|
|||
bytesSent: PDWord, flags: DWORD, lpOverlapped: POverlapped,
|
||||
completionProc: POVERLAPPED_COMPLETION_ROUTINE): cint {.
|
||||
stdcall, importc: "WSASend", dynlib: "Ws2_32.dll".}
|
||||
|
||||
proc get_osfhandle*(fd:TFileHandle): THandle {.
|
||||
importc:"_get_osfhandle", header:"<io.h>".}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue