224 lines
6.8 KiB
Plaintext
224 lines
6.8 KiB
Plaintext
(*
|
|
BSD 2-Clause License
|
|
|
|
Copyright (c) 2019-2020, Anton Krotov
|
|
All rights reserved.
|
|
*)
|
|
|
|
MODULE WINAPI;
|
|
|
|
IMPORT SYSTEM, API;
|
|
|
|
|
|
CONST
|
|
|
|
OFS_MAXPATHNAME* = 128;
|
|
|
|
KERNEL = "kernel32.dll";
|
|
USER = "user32.dll";
|
|
MSVCRT = "msvcrt.dll";
|
|
|
|
|
|
TYPE
|
|
|
|
DLL_ENTRY* = API.DLL_ENTRY;
|
|
|
|
STRING = ARRAY 260 OF CHAR;
|
|
|
|
TCoord* = RECORD
|
|
|
|
X*, Y*: WCHAR
|
|
|
|
END;
|
|
|
|
TSmallRect* = RECORD
|
|
|
|
Left*, Top*, Right*, Bottom*: WCHAR
|
|
|
|
END;
|
|
|
|
TConsoleScreenBufferInfo* = RECORD
|
|
|
|
dwSize*: TCoord;
|
|
dwCursorPosition*: TCoord;
|
|
wAttributes*: WCHAR;
|
|
srWindow*: TSmallRect;
|
|
dwMaximumWindowSize*: TCoord
|
|
|
|
END;
|
|
|
|
TSystemTime* = RECORD
|
|
|
|
Year*,
|
|
Month*,
|
|
DayOfWeek*,
|
|
Day*,
|
|
Hour*,
|
|
Min*,
|
|
Sec*,
|
|
MSec*: WCHAR
|
|
|
|
END;
|
|
|
|
tm* = RECORD
|
|
|
|
sec*,
|
|
min*,
|
|
hour*,
|
|
mday*,
|
|
mon*,
|
|
year*,
|
|
wday*,
|
|
yday*,
|
|
isdst*: SYSTEM.CARD32
|
|
|
|
END;
|
|
|
|
PSecurityAttributes* = POINTER TO TSecurityAttributes;
|
|
|
|
TSecurityAttributes* = RECORD
|
|
|
|
nLength*: SYSTEM.CARD32;
|
|
lpSecurityDescriptor*: INTEGER;
|
|
bInheritHandle*: SYSTEM.CARD32 (* BOOL *)
|
|
|
|
END;
|
|
|
|
TFileTime* = RECORD
|
|
|
|
dwLowDateTime*,
|
|
dwHighDateTime*: SYSTEM.CARD32
|
|
|
|
END;
|
|
|
|
TWin32FindData* = RECORD
|
|
|
|
dwFileAttributes*: SYSTEM.CARD32;
|
|
ftCreationTime*: TFileTime;
|
|
ftLastAccessTime*: TFileTime;
|
|
ftLastWriteTime*: TFileTime;
|
|
nFileSizeHigh*: SYSTEM.CARD32;
|
|
nFileSizeLow*: SYSTEM.CARD32;
|
|
dwReserved0*: SYSTEM.CARD32;
|
|
dwReserved1*: SYSTEM.CARD32;
|
|
cFileName*: STRING;
|
|
cAlternateFileName*: ARRAY 14 OF CHAR;
|
|
dwFileType*: SYSTEM.CARD32;
|
|
dwCreatorType*: SYSTEM.CARD32;
|
|
wFinderFlags*: WCHAR
|
|
|
|
END;
|
|
|
|
OFSTRUCT* = RECORD
|
|
|
|
cBytes*: BYTE;
|
|
fFixedDisk*: BYTE;
|
|
nErrCode*: WCHAR;
|
|
Reserved1*: WCHAR;
|
|
Reserved2*: WCHAR;
|
|
szPathName*: ARRAY OFS_MAXPATHNAME OF CHAR
|
|
|
|
END;
|
|
|
|
POverlapped* = POINTER TO OVERLAPPED;
|
|
|
|
OVERLAPPED* = RECORD
|
|
|
|
Internal*: INTEGER;
|
|
InternalHigh*: INTEGER;
|
|
Offset*: SYSTEM.CARD32;
|
|
OffsetHigh*: SYSTEM.CARD32;
|
|
hEvent*: INTEGER
|
|
|
|
END;
|
|
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] SetConsoleCursorPosition* (hConsoleOutput, dwCursorPosition: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] GetConsoleScreenBufferInfo* (hConsoleOutput: INTEGER; ConsoleScreenBufferInfo: TConsoleScreenBufferInfo): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] FillConsoleOutputCharacterA* (hConsoleOutput, cCaracter, nLength, dwWriteCoord, lpNumberOfCharsWritten: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] FillConsoleOutputAttribute* (hConsoleOutput, wAttribute, nLength, dwWriteCoord, lpNumberOfAttrsWritten: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] SetConsoleTextAttribute* (hConsoleOutput, wAttributes: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] GetStdHandle* (nStdHandle: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] CloseHandle* (hObject: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] WriteFile* (hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead: INTEGER; lpOverlapped: POverlapped): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] ReadFile* (hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead: INTEGER; lpOverlapped: POverlapped): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] GetCommandLineA* (): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] GlobalAlloc* (uFlags, dwBytes: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] GlobalFree* (hMem: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] ExitProcess* (code: INTEGER);
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] GetTickCount* (): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] Sleep* (dwMilliseconds: INTEGER);
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] FreeLibrary* (hLibModule: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] GetProcAddress* (hModule, name: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] LoadLibraryA* (name: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] AllocConsole* (): BOOLEAN;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] FreeConsole* (): BOOLEAN;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] GetLocalTime* (T: TSystemTime);
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] RemoveDirectoryA* (lpPathName: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] GetFileAttributesA* (lpPathName: INTEGER): SET;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] CreateDirectoryA* (lpPathName: INTEGER; lpSecurityAttributes: PSecurityAttributes): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] FindFirstFileA* (lpFileName: INTEGER; lpFindFileData: TWin32FindData): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] DeleteFileA* (lpFileName: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] FindClose* (hFindFile: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] CreateFileA* (
|
|
lpFileName, dwDesiredAccess, dwShareMode: INTEGER;
|
|
lpSecurityAttributes: PSecurityAttributes;
|
|
dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] OpenFile* (lpFileName: INTEGER; lpReOpenBuff: OFSTRUCT; uStyle: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] SetFilePointer* (hFile, lDistanceToMove, lpDistanceToMoveHigh, dwMoveMethod: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] ReadConsoleA* (hConsoleInput, lpBuffer, nNumberOfCharsToRead, lpNumberOfCharsRead, lpReserved: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] WriteConsoleW* (hConsoleOutput, lpBuffer, nNumberOfCharsToWrite, lpNumberOfCharsWritten, lpReserved: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, KERNEL, ""] WriteConsoleA* (hConsoleOutput, lpBuffer, nNumberOfCharsToWrite, lpNumberOfCharsWritten, lpReserved: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, USER, ""] MessageBoxA* (hWnd, lpText, lpCaption, uType: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, USER, ""] MessageBoxW* (hWnd, lpText, lpCaption, uType: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, USER, ""] CreateWindowExA* (
|
|
dwExStyle, lpClassName, lpWindowName, dwStyle, X, Y,
|
|
nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, MSVCRT, ""] time* (ptr: INTEGER): INTEGER;
|
|
|
|
PROCEDURE [windows-, MSVCRT, ""] mktime* (time: tm): INTEGER;
|
|
|
|
|
|
PROCEDURE SetDllEntry* (process_detach, thread_detach, thread_attach: DLL_ENTRY);
|
|
BEGIN
|
|
API.SetDll(process_detach, thread_detach, thread_attach)
|
|
END SetDllEntry;
|
|
|
|
|
|
END WINAPI. |