Subversion Repositories Kolibri OS

Rev

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