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; |