Rev 7983 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7983 | Rev 8097 | ||
|---|---|---|---|
| Line 12... | Line 12... | ||
| 12 | 12 | ||
| Line 13... | Line 13... | ||
| 13 | CONST |
13 | CONST |
| Line -... | Line 14... | ||
| - | 14 | ||
| - | 15 | OFS_MAXPATHNAME* = 128; |
|
| - | 16 | ||
| - | 17 | KERNEL = "kernel32.dll"; |
|
| Line 14... | Line 18... | ||
| 14 | 18 | USER = "user32.dll"; |
|
| Line 15... | Line 19... | ||
| 15 | OFS_MAXPATHNAME* = 128; |
19 | MSVCRT = "msvcrt.dll"; |
| Line 54... | Line 58... | ||
| 54 | Sec*, |
58 | Sec*, |
| 55 | MSec*: WCHAR |
59 | MSec*: WCHAR |
| Line 56... | Line 60... | ||
| 56 | 60 | ||
| Line -... | Line 61... | ||
| - | 61 | END; |
|
| - | 62 | ||
| - | 63 | tm* = RECORD |
|
| - | 64 | ||
| - | 65 | sec*, |
|
| - | 66 | min*, |
|
| - | 67 | hour*, |
|
| - | 68 | mday*, |
|
| - | 69 | mon*, |
|
| - | 70 | year*, |
|
| - | 71 | wday*, |
|
| - | 72 | yday*, |
|
| - | 73 | isdst*: SYSTEM.CARD32 |
|
| - | 74 | ||
| 57 | END; |
75 | END; |
| Line 58... | Line 76... | ||
| 58 | 76 | ||
| Line 59... | Line 77... | ||
| 59 | PSecurityAttributes* = POINTER TO TSecurityAttributes; |
77 | PSecurityAttributes* = POINTER TO TSecurityAttributes; |
| 60 | 78 | ||
| 61 | TSecurityAttributes* = RECORD |
79 | TSecurityAttributes* = RECORD |
| Line 62... | Line 80... | ||
| 62 | 80 | ||
| Line 63... | Line 81... | ||
| 63 | nLength*: INTEGER; |
81 | nLength*: SYSTEM.CARD32; |
| Line 64... | Line 82... | ||
| 64 | lpSecurityDescriptor*: INTEGER; |
82 | lpSecurityDescriptor*: INTEGER; |
| 65 | bInheritHandle*: INTEGER |
83 | bInheritHandle*: SYSTEM.CARD32 (* BOOL *) |
| - | 84 | ||
| - | 85 | END; |
|
| - | 86 | ||
| - | 87 | TFileTime* = RECORD |
|
| - | 88 | ||
| - | 89 | dwLowDateTime*, |
|
| - | 90 | dwHighDateTime*: SYSTEM.CARD32 |
|
| - | 91 | ||
| - | 92 | END; |
|
| - | 93 | ||
| - | 94 | TWin32FindData* = RECORD |
|
| - | 95 | ||
| - | 96 | dwFileAttributes*: SYSTEM.CARD32; |
|
| - | 97 | ftCreationTime*: TFileTime; |
|
| - | 98 | ftLastAccessTime*: TFileTime; |
|
| - | 99 | ftLastWriteTime*: TFileTime; |
|
| - | 100 | nFileSizeHigh*: SYSTEM.CARD32; |
|
| - | 101 | nFileSizeLow*: SYSTEM.CARD32; |
|
| Line 66... | Line 102... | ||
| 66 | 102 | dwReserved0*: SYSTEM.CARD32; |
|
| Line 67... | Line 103... | ||
| 67 | END; |
103 | dwReserved1*: SYSTEM.CARD32; |
| Line 68... | Line 104... | ||
| 68 | 104 | cFileName*: STRING; |
|
| 69 | TFileTime* = RECORD |
105 | cAlternateFileName*: ARRAY 14 OF CHAR; |
| 70 | 106 | dwFileType*: SYSTEM.CARD32; |
|
| 71 | dwLowDateTime*, |
107 | dwCreatorType*: SYSTEM.CARD32; |
| 72 | dwHighDateTime*: INTEGER |
108 | wFinderFlags*: WCHAR |
| 73 | 109 | ||
| Line 88... | Line 124... | ||
| 88 | 124 | ||
| Line 89... | Line 125... | ||
| 89 | OVERLAPPED* = RECORD |
125 | OVERLAPPED* = RECORD |
| 90 | 126 | ||
| 91 | Internal*: INTEGER; |
127 | Internal*: INTEGER; |
| 92 | InternalHigh*: INTEGER; |
128 | InternalHigh*: INTEGER; |
| 93 | Offset*: INTEGER; |
129 | Offset*: SYSTEM.CARD32; |
| Line 94... | Line 130... | ||
| 94 | OffsetHigh*: INTEGER; |
130 | OffsetHigh*: SYSTEM.CARD32; |
| Line -... | Line 131... | ||
| - | 131 | hEvent*: INTEGER |
|
| - | 132 | ||
| - | 133 | END; |
|
| - | 134 | ||
| - | 135 | ||
| - | 136 | PROCEDURE [windows-, KERNEL, ""] SetConsoleCursorPosition* (hConsoleOutput, dwCursorPosition: INTEGER): INTEGER; |
|
| - | 137 | ||
| - | 138 | PROCEDURE [windows-, KERNEL, ""] GetConsoleScreenBufferInfo* (hConsoleOutput: INTEGER; ConsoleScreenBufferInfo: TConsoleScreenBufferInfo): INTEGER; |
|
| - | 139 | ||
| - | 140 | PROCEDURE [windows-, KERNEL, ""] FillConsoleOutputCharacterA* (hConsoleOutput, cCaracter, nLength, dwWriteCoord, lpNumberOfCharsWritten: INTEGER): INTEGER; |
|
| - | 141 | ||
| - | 142 | PROCEDURE [windows-, KERNEL, ""] FillConsoleOutputAttribute* (hConsoleOutput, wAttribute, nLength, dwWriteCoord, lpNumberOfAttrsWritten: INTEGER): INTEGER; |
|
| - | 143 | ||
| - | 144 | PROCEDURE [windows-, KERNEL, ""] SetConsoleTextAttribute* (hConsoleOutput, wAttributes: INTEGER): INTEGER; |
|
| - | 145 | ||
| - | 146 | PROCEDURE [windows-, KERNEL, ""] GetStdHandle* (nStdHandle: INTEGER): INTEGER; |
|
| - | 147 | ||
| - | 148 | PROCEDURE [windows-, KERNEL, ""] CloseHandle* (hObject: INTEGER): INTEGER; |
|
| 95 | hEvent*: INTEGER |
149 | |
| - | 150 | PROCEDURE [windows-, KERNEL, ""] WriteFile* (hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead: INTEGER; lpOverlapped: POverlapped): INTEGER; |
|
| 96 | 151 | ||
| - | 152 | PROCEDURE [windows-, KERNEL, ""] ReadFile* (hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead: INTEGER; lpOverlapped: POverlapped): INTEGER; |
|
| - | 153 | ||
| - | 154 | PROCEDURE [windows-, KERNEL, ""] GetCommandLineA* (): INTEGER; |
|
| - | 155 | ||
| - | 156 | PROCEDURE [windows-, KERNEL, ""] GlobalAlloc* (uFlags, dwBytes: INTEGER): INTEGER; |
|
| - | 157 | ||
| - | 158 | PROCEDURE [windows-, KERNEL, ""] GlobalFree* (hMem: INTEGER): INTEGER; |
|
| - | 159 | ||
| - | 160 | PROCEDURE [windows-, KERNEL, ""] ExitProcess* (code: INTEGER); |
|
| - | 161 | ||
| - | 162 | PROCEDURE [windows-, KERNEL, ""] GetTickCount* (): INTEGER; |
|
| - | 163 | ||
| - | 164 | PROCEDURE [windows-, KERNEL, ""] Sleep* (dwMilliseconds: INTEGER); |
|
| - | 165 | ||
| Line 97... | Line 166... | ||
| 97 | END; |
166 | PROCEDURE [windows-, KERNEL, ""] FreeLibrary* (hLibModule: INTEGER): INTEGER; |
| 98 | - | ||
| Line 99... | Line 167... | ||
| 99 | 167 | ||
| 100 | PROCEDURE [windows-, "kernel32.dll", "SetConsoleCursorPosition"] |
- | |
| Line 101... | Line 168... | ||
| 101 | SetConsoleCursorPosition* (hConsoleOutput, dwCursorPosition: INTEGER): INTEGER; |
168 | PROCEDURE [windows-, KERNEL, ""] GetProcAddress* (hModule, name: INTEGER): INTEGER; |
| 102 | - | ||
| Line 103... | Line -... | ||
| 103 | PROCEDURE [windows-, "kernel32.dll", "GetConsoleScreenBufferInfo"] |
- | |
| 104 | GetConsoleScreenBufferInfo* (hConsoleOutput: INTEGER; ConsoleScreenBufferInfo: TConsoleScreenBufferInfo): INTEGER; |
169 | |
| Line 105... | Line 170... | ||
| 105 | 170 | PROCEDURE [windows-, KERNEL, ""] LoadLibraryA* (name: INTEGER): INTEGER; |
|
| 106 | PROCEDURE [windows-, "kernel32.dll", "FillConsoleOutputCharacterA"] |
- | |
| Line 107... | Line 171... | ||
| 107 | FillConsoleOutputCharacter* (hConsoleOutput, cCaracter, nLength, dwWriteCoord, lpNumberOfCharsWritten: INTEGER): INTEGER; |
171 | |
| 108 | - | ||
| Line 109... | Line -... | ||
| 109 | PROCEDURE [windows-, "kernel32.dll", "FillConsoleOutputAttribute"] |
- | |
| 110 | FillConsoleOutputAttribute* (hConsoleOutput, wAttribute, nLength, dwWriteCoord, lpNumberOfAttrsWritten: INTEGER): INTEGER; |
172 | PROCEDURE [windows-, KERNEL, ""] AllocConsole* (): BOOLEAN; |
| Line 111... | Line 173... | ||
| 111 | 173 | ||
| 112 | PROCEDURE [windows-, "kernel32.dll", "SetConsoleTextAttribute"] |
- | |
| Line 113... | Line 174... | ||
| 113 | SetConsoleTextAttribute* (hConsoleOutput, wAttributes: INTEGER): INTEGER; |
174 | PROCEDURE [windows-, KERNEL, ""] FreeConsole* (): BOOLEAN; |
| 114 | - | ||
| Line 115... | Line 175... | ||
| 115 | PROCEDURE [windows-, "kernel32.dll", "GetStdHandle"] |
175 | |
| 116 | GetStdHandle* (nStdHandle: INTEGER): INTEGER; |
176 | PROCEDURE [windows-, KERNEL, ""] GetLocalTime* (T: TSystemTime); |
| - | 177 | ||
| - | 178 | PROCEDURE [windows-, KERNEL, ""] RemoveDirectoryA* (lpPathName: INTEGER): INTEGER; |
|
| Line 117... | Line 179... | ||
| 117 | 179 | ||
| 118 | PROCEDURE [windows-, "kernel32.dll", "CloseHandle"] |
- | |
| Line 119... | Line 180... | ||
| 119 | CloseHandle* (hObject: INTEGER): INTEGER; |
180 | PROCEDURE [windows-, KERNEL, ""] GetFileAttributesA* (lpPathName: INTEGER): SET; |
| 120 | - | ||
| Line 121... | Line 181... | ||
| 121 | PROCEDURE [windows-, "kernel32.dll", "WriteFile"] |
181 | |
| 122 | WriteFile* (hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead: INTEGER; lpOverlapped: POverlapped): INTEGER; |
- | |
| Line 123... | Line 182... | ||
| 123 | 182 | PROCEDURE [windows-, KERNEL, ""] CreateDirectoryA* (lpPathName: INTEGER; lpSecurityAttributes: PSecurityAttributes): INTEGER; |
|
| 124 | PROCEDURE [windows-, "kernel32.dll", "ReadFile"] |
- | |
| Line 125... | Line 183... | ||
| 125 | ReadFile* (hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead: INTEGER; lpOverlapped: POverlapped): INTEGER; |
183 | |
| 126 | - | ||
| Line 127... | Line -... | ||
| 127 | PROCEDURE [windows-, "kernel32.dll", "GetCommandLineA"] |
- | |
| 128 | GetCommandLine* (): INTEGER; |
184 | PROCEDURE [windows-, KERNEL, ""] FindFirstFileA* (lpFileName: INTEGER; lpFindFileData: TWin32FindData): INTEGER; |
| Line 129... | Line 185... | ||
| 129 | 185 | ||
| 130 | PROCEDURE [windows-, "kernel32.dll", "GlobalAlloc"] |
- | |
| Line 131... | Line 186... | ||
| 131 | GlobalAlloc* (uFlags, dwBytes: INTEGER): INTEGER; |
186 | PROCEDURE [windows-, KERNEL, ""] DeleteFileA* (lpFileName: INTEGER): INTEGER; |
| 132 | 187 | ||
| - | 188 | PROCEDURE [windows-, KERNEL, ""] FindClose* (hFindFile: INTEGER): INTEGER; |
|
| Line 133... | Line 189... | ||
| 133 | PROCEDURE [windows-, "kernel32.dll", "GlobalFree"] |
189 | |
| 134 | GlobalFree* (hMem: INTEGER): INTEGER; |
- | |
| Line 135... | Line 190... | ||
| 135 | 190 | PROCEDURE [windows-, KERNEL, ""] CreateFileA* ( |
|
| 136 | PROCEDURE [windows-, "kernel32.dll", "ExitProcess"] |
- | |
| Line 137... | Line 191... | ||
| 137 | ExitProcess* (code: INTEGER); |
191 | lpFileName, dwDesiredAccess, dwShareMode: INTEGER; |
| 138 | 192 | lpSecurityAttributes: PSecurityAttributes; |
|
| 139 | PROCEDURE [windows-, "kernel32.dll", "GetTickCount"] |
193 | dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile: INTEGER): INTEGER; |