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 *) |
Line 66... | Line 84... | ||
66 | 84 | ||
Line 67... | Line 85... | ||
67 | END; |
85 | END; |
Line 68... | Line 86... | ||
68 | 86 | ||
69 | TFileTime* = RECORD |
87 | TFileTime* = RECORD |
70 | 88 | ||
71 | dwLowDateTime*, |
89 | dwLowDateTime*, |
72 | dwHighDateTime*: INTEGER |
90 | dwHighDateTime*: SYSTEM.CARD32 |
73 | 91 | ||
74 | END; |
92 | END; |
75 | 93 | ||
76 | TWin32FindData* = RECORD |
94 | TWin32FindData* = RECORD |
77 | 95 | ||
- | 96 | dwFileAttributes*: SYSTEM.CARD32; |
|
- | 97 | ftCreationTime*: TFileTime; |
|
- | 98 | ftLastAccessTime*: TFileTime; |
|
Line 78... | Line 99... | ||
78 | dwFileAttributes*: SET; |
99 | ftLastWriteTime*: TFileTime; |
Line 79... | Line 100... | ||
79 | ftCreationTime*: TFileTime; |
100 | nFileSizeHigh*: SYSTEM.CARD32; |
Line 80... | Line 101... | ||
80 | ftLastAccessTime*: TFileTime; |
101 | nFileSizeLow*: SYSTEM.CARD32; |
81 | ftLastWriteTime*: TFileTime; |
102 | dwReserved0*: SYSTEM.CARD32; |
82 | nFileSizeHigh*: INTEGER; |
103 | dwReserved1*: SYSTEM.CARD32; |
83 | nFileSizeLow*: INTEGER; |
104 | cFileName*: STRING; |
84 | dwReserved0*: INTEGER; |
105 | cAlternateFileName*: ARRAY 14 OF CHAR; |
85 | dwReserved1*: INTEGER; |
106 | dwFileType*: SYSTEM.CARD32; |
Line 103... | Line 124... | ||
103 | 124 | ||
Line 104... | Line 125... | ||
104 | OVERLAPPED* = RECORD |
125 | OVERLAPPED* = RECORD |
105 | 126 | ||
106 | Internal*: INTEGER; |
127 | Internal*: INTEGER; |
107 | InternalHigh*: INTEGER; |
128 | InternalHigh*: INTEGER; |
108 | Offset*: INTEGER; |
129 | Offset*: SYSTEM.CARD32; |
Line 109... | Line 130... | ||
109 | OffsetHigh*: INTEGER; |
130 | OffsetHigh*: SYSTEM.CARD32; |
Line 110... | Line -... | ||
110 | hEvent*: INTEGER |
- | |
111 | 131 | hEvent*: INTEGER |
|
Line 112... | Line -... | ||
112 | END; |
- | |
113 | 132 | ||
Line 114... | Line -... | ||
114 | - | ||
115 | PROCEDURE [windows-, "kernel32.dll", "SetConsoleCursorPosition"] |
133 | END; |
Line 116... | Line -... | ||
116 | SetConsoleCursorPosition* (hConsoleOutput, dwCursorPosition: INTEGER): INTEGER; |
- | |
117 | 134 | ||
Line 118... | Line -... | ||
118 | PROCEDURE [windows-, "kernel32.dll", "GetConsoleScreenBufferInfo"] |
- | |
119 | GetConsoleScreenBufferInfo* (hConsoleOutput: INTEGER; ConsoleScreenBufferInfo: TConsoleScreenBufferInfo): INTEGER; |
135 | |
Line 120... | Line -... | ||
120 | - | ||
121 | PROCEDURE [windows-, "kernel32.dll", "FillConsoleOutputCharacterA"] |
136 | PROCEDURE [windows-, KERNEL, ""] SetConsoleCursorPosition* (hConsoleOutput, dwCursorPosition: INTEGER): INTEGER; |
Line 122... | Line -... | ||
122 | FillConsoleOutputCharacter* (hConsoleOutput, cCaracter, nLength, dwWriteCoord, lpNumberOfCharsWritten: INTEGER): INTEGER; |
- | |
123 | 137 | ||
Line 124... | Line -... | ||
124 | PROCEDURE [windows-, "kernel32.dll", "FillConsoleOutputAttribute"] |
- | |
125 | FillConsoleOutputAttribute* (hConsoleOutput, wAttribute, nLength, dwWriteCoord, lpNumberOfAttrsWritten: INTEGER): INTEGER; |
138 | PROCEDURE [windows-, KERNEL, ""] GetConsoleScreenBufferInfo* (hConsoleOutput: INTEGER; ConsoleScreenBufferInfo: TConsoleScreenBufferInfo): INTEGER; |
Line 126... | Line -... | ||
126 | - | ||
127 | PROCEDURE [windows-, "kernel32.dll", "SetConsoleTextAttribute"] |
139 | |
Line 128... | Line -... | ||
128 | SetConsoleTextAttribute* (hConsoleOutput, wAttributes: INTEGER): INTEGER; |
- | |
129 | 140 | PROCEDURE [windows-, KERNEL, ""] FillConsoleOutputCharacterA* (hConsoleOutput, cCaracter, nLength, dwWriteCoord, lpNumberOfCharsWritten: INTEGER): INTEGER; |
|
Line 130... | Line -... | ||
130 | PROCEDURE [windows-, "kernel32.dll", "GetStdHandle"] |
- | |
131 | GetStdHandle* (nStdHandle: INTEGER): INTEGER; |
141 | |
Line 132... | Line -... | ||
132 | - | ||
133 | PROCEDURE [windows-, "kernel32.dll", "GetLocalTime"] |
142 | PROCEDURE [windows-, KERNEL, ""] FillConsoleOutputAttribute* (hConsoleOutput, wAttribute, nLength, dwWriteCoord, lpNumberOfAttrsWritten: INTEGER): INTEGER; |
Line 134... | Line -... | ||
134 | GetLocalTime* (T: TSystemTime); |
- | |
135 | 143 | ||
Line 136... | Line -... | ||
136 | PROCEDURE [windows-, "kernel32.dll", "RemoveDirectoryA"] |
- | |
137 | RemoveDirectory* (lpPathName: INTEGER): INTEGER; |
144 | PROCEDURE [windows-, KERNEL, ""] SetConsoleTextAttribute* (hConsoleOutput, wAttributes: INTEGER): INTEGER; |
Line 138... | Line 145... | ||
138 | 145 | ||
139 | PROCEDURE [windows-, "kernel32.dll", "GetFileAttributesA"] |
- | |
140 | GetFileAttributes* (lpPathName: INTEGER): SET; |
146 | PROCEDURE [windows-, KERNEL, ""] GetStdHandle* (nStdHandle: INTEGER): INTEGER; |
141 | 147 | ||
142 | PROCEDURE [windows-, "kernel32.dll", "CreateDirectoryA"] |
148 | PROCEDURE [windows-, KERNEL, ""] GetLocalTime* (T: TSystemTime); |
Line 143... | Line -... | ||
143 | CreateDirectory* (lpPathName: INTEGER; lpSecurityAttributes: PSecurityAttributes): INTEGER; |
- | |
144 | 149 | ||
Line 145... | Line -... | ||
145 | PROCEDURE [windows-, "kernel32.dll", "FindFirstFileA"] |
- | |
146 | FindFirstFile* (lpFileName: INTEGER; lpFindFileData: TWin32FindData): INTEGER; |
150 | PROCEDURE [windows-, KERNEL, ""] RemoveDirectoryA* (lpPathName: INTEGER): INTEGER; |
Line 147... | Line -... | ||
147 | - | ||
148 | PROCEDURE [windows-, "kernel32.dll", "DeleteFileA"] |
151 | |
Line 149... | Line -... | ||
149 | DeleteFile* (lpFileName: INTEGER): INTEGER; |
- | |
150 | 152 | PROCEDURE [windows-, KERNEL, ""] GetFileAttributesA* (lpPathName: INTEGER): SET; |
|
Line 151... | Line -... | ||
151 | PROCEDURE [windows-, "kernel32.dll", "FindClose"] |
- | |
152 | FindClose* (hFindFile: INTEGER): INTEGER; |
153 | |
Line 153... | Line 154... | ||
153 | 154 | PROCEDURE [windows-, KERNEL, ""] CreateDirectoryA* (lpPathName: INTEGER; lpSecurityAttributes: PSecurityAttributes): INTEGER; |
|
154 | PROCEDURE [windows-, "kernel32.dll", "CloseHandle"] |
- | |
Line 155... | Line -... | ||
155 | CloseHandle* (hObject: INTEGER): INTEGER; |
- | |
156 | 155 | ||
Line 157... | Line -... | ||
157 | PROCEDURE [windows-, "kernel32.dll", "CreateFileA"] |
- | |
158 | CreateFile* ( |
156 | PROCEDURE [windows-, KERNEL, ""] FindFirstFileA* (lpFileName: INTEGER; lpFindFileData: TWin32FindData): INTEGER; |
Line 159... | Line -... | ||
159 | lpFileName, dwDesiredAccess, dwShareMode: INTEGER; |
- | |
160 | lpSecurityAttributes: PSecurityAttributes; |
157 | |
Line 161... | Line 158... | ||
161 | dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile: INTEGER): INTEGER; |
158 | PROCEDURE [windows-, KERNEL, ""] DeleteFileA* (lpFileName: INTEGER): INTEGER; |
162 | - | ||
Line 163... | Line -... | ||
163 | PROCEDURE [windows-, "kernel32.dll", "OpenFile"] |
- | |
164 | OpenFile* (lpFileName: INTEGER; lpReOpenBuff: OFSTRUCT; uStyle: INTEGER): INTEGER; |
159 | |
Line 165... | Line 160... | ||
165 | 160 | PROCEDURE [windows-, KERNEL, ""] FindClose* (hFindFile: INTEGER): INTEGER; |
|
166 | PROCEDURE [windows-, "kernel32.dll", "SetFilePointer"] |
- | |
Line 167... | Line -... | ||
167 | SetFilePointer* (hFile, lDistanceToMove, lpDistanceToMoveHigh, dwMoveMethod: INTEGER): INTEGER; |
- | |
168 | 161 | ||
Line 169... | Line -... | ||
169 | PROCEDURE [windows-, "kernel32.dll", "ReadFile"] |
- | |
170 | ReadFile* (hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead: INTEGER; lpOverlapped: POverlapped): INTEGER; |
162 | PROCEDURE [windows-, KERNEL, ""] CloseHandle* (hObject: INTEGER): INTEGER; |
Line 171... | Line 163... | ||
171 | 163 | ||
172 | PROCEDURE [windows-, "kernel32.dll", "WriteFile"] |
- | |
Line 173... | Line 164... | ||
173 | WriteFile* (hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead: INTEGER; lpOverlapped: POverlapped): INTEGER; |
164 | PROCEDURE [windows-, KERNEL, ""] CreateFileA* ( |
174 | - | ||
Line 175... | Line 165... | ||
175 | PROCEDURE [windows-, "kernel32.dll", "ReadConsoleA"] |
165 | lpFileName, dwDesiredAccess, dwShareMode: INTEGER; |
176 | ReadConsole* (hConsoleInput, lpBuffer, nNumberOfCharsToRead, lpNumberOfCharsRead, lpReserved: INTEGER): INTEGER; |
- | |
Line 177... | Line 166... | ||
177 | 166 | lpSecurityAttributes: PSecurityAttributes; |
|
178 | PROCEDURE [windows-, "kernel32.dll", "GetCommandLineA"] |
- | |
Line 179... | Line -... | ||
179 | GetCommandLine* (): INTEGER; |
- | |
180 | - | ||
181 | PROCEDURE [windows-, "kernel32.dll", "GlobalAlloc"] |
- | |
182 | GlobalAlloc* (uFlags, dwBytes: INTEGER): INTEGER; |
167 | dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile: INTEGER): INTEGER; |
Line 183... | Line -... | ||
183 | - | ||
184 | PROCEDURE [windows-, "kernel32.dll", "GlobalFree"] |
168 | |
Line 185... | Line 169... | ||
185 | GlobalFree* (hMem: INTEGER): INTEGER; |
169 | PROCEDURE [windows-, KERNEL, ""] OpenFile* (lpFileName: INTEGER; lpReOpenBuff: OFSTRUCT; uStyle: INTEGER): INTEGER; |
- | 170 | ||
186 | 171 | PROCEDURE [windows-, KERNEL, ""] SetFilePointer* (hFile, lDistanceToMove, lpDistanceToMoveHigh, dwMoveMethod: INTEGER): INTEGER; |
|
Line 187... | Line 172... | ||
187 | PROCEDURE [windows-, "kernel32.dll", "WriteConsoleW"] |
172 | |
188 | WriteConsoleW* (hConsoleOutput, lpBuffer, nNumberOfCharsToWrite, lpNumberOfCharsWritten, lpReserved: INTEGER): INTEGER; |
- | |
Line 189... | Line 173... | ||
189 | 173 | PROCEDURE [windows-, KERNEL, ""] ReadFile* (hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead: INTEGER; lpOverlapped: POverlapped): INTEGER; |
|
190 | PROCEDURE [windows-, "kernel32.dll", "ExitProcess"] |
- | |
Line 191... | Line 174... | ||
191 | ExitProcess* (code: INTEGER); |
174 | |
192 | 175 | PROCEDURE [windows-, KERNEL, ""] WriteFile* (hFile, Buffer, nNumberOfBytesToRead, lpNumberOfBytesRead: INTEGER; lpOverlapped: POverlapped): INTEGER; |
|
193 | PROCEDURE [windows-, "kernel32.dll", "WriteConsoleA"] |
176 |