home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-wincon.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  40.7 KB  |  777 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-wincon.ads,v $ 
  2. -- $Revision: 1.10 $ $Date: 96/03/15 12:57:00 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Winbase;
  6. with Win32.Winnt;
  7.  
  8. package Win32.Wincon is
  9.  
  10.     RIGHT_ALT_PRESSED              : constant := 16#1#;     -- wincon.h:57
  11.     LEFT_ALT_PRESSED               : constant := 16#2#;     -- wincon.h:58
  12.     RIGHT_CTRL_PRESSED             : constant := 16#4#;     -- wincon.h:59
  13.     LEFT_CTRL_PRESSED              : constant := 16#8#;     -- wincon.h:60
  14.     SHIFT_PRESSED                  : constant := 16#10#;    -- wincon.h:61
  15.     NUMLOCK_ON                     : constant := 16#20#;    -- wincon.h:62
  16.     SCROLLLOCK_ON                  : constant := 16#40#;    -- wincon.h:63
  17.     CAPSLOCK_ON                    : constant := 16#80#;    -- wincon.h:64
  18.     ENHANCED_KEY                   : constant := 16#100#;   -- wincon.h:65
  19.     FROM_LEFT_1ST_BUTTON_PRESSED   : constant := 16#1#;     -- wincon.h:78
  20.     RIGHTMOST_BUTTON_PRESSED       : constant := 16#2#;     -- wincon.h:79
  21.     FROM_LEFT_2ND_BUTTON_PRESSED   : constant := 16#4#;     -- wincon.h:80
  22.     FROM_LEFT_3RD_BUTTON_PRESSED   : constant := 16#8#;     -- wincon.h:81
  23.     FROM_LEFT_4TH_BUTTON_PRESSED   : constant := 16#10#;    -- wincon.h:82
  24.     MOUSE_MOVED                    : constant := 16#1#;     -- wincon.h:88
  25.     DOUBLE_CLICK                   : constant := 16#2#;     -- wincon.h:89
  26.     KEY_EVENT                      : constant := 16#1#;     -- wincon.h:118
  27.     MOUSE_EVENT                    : constant := 16#2#;     -- wincon.h:119
  28.     WINDOW_BUFFER_SIZE_EVENT       : constant := 16#4#;     -- wincon.h:120
  29.     MENU_EVENT                     : constant := 16#8#;     -- wincon.h:121
  30.     FOCUS_EVENT                    : constant := 16#10#;    -- wincon.h:122
  31.     FOREGROUND_BLUE                : constant := 16#1#;     -- wincon.h:136
  32.     FOREGROUND_GREEN               : constant := 16#2#;     -- wincon.h:137
  33.     FOREGROUND_RED                 : constant := 16#4#;     -- wincon.h:138
  34.     FOREGROUND_INTENSITY           : constant := 16#8#;     -- wincon.h:139
  35.     BACKGROUND_BLUE                : constant := 16#10#;    -- wincon.h:140
  36.     BACKGROUND_GREEN               : constant := 16#20#;    -- wincon.h:141
  37.     BACKGROUND_RED                 : constant := 16#40#;    -- wincon.h:142
  38.     BACKGROUND_INTENSITY           : constant := 16#80#;    -- wincon.h:143
  39.     CTRL_C_EVENT                   : constant := 0;         -- wincon.h:169
  40.     CTRL_BREAK_EVENT               : constant := 1;         -- wincon.h:170
  41.     CTRL_CLOSE_EVENT               : constant := 2;         -- wincon.h:171
  42.     CTRL_LOGOFF_EVENT              : constant := 5;         -- wincon.h:174
  43.     CTRL_SHUTDOWN_EVENT            : constant := 6;         -- wincon.h:175
  44.     ENABLE_PROCESSED_INPUT         : constant := 16#1#;     -- wincon.h:181
  45.     ENABLE_LINE_INPUT              : constant := 16#2#;     -- wincon.h:182
  46.     ENABLE_ECHO_INPUT              : constant := 16#4#;     -- wincon.h:183
  47.     ENABLE_WINDOW_INPUT            : constant := 16#8#;     -- wincon.h:184
  48.     ENABLE_MOUSE_INPUT             : constant := 16#10#;    -- wincon.h:185
  49.     ENABLE_PROCESSED_OUTPUT        : constant := 16#1#;     -- wincon.h:191
  50.     ENABLE_WRAP_AT_EOL_OUTPUT      : constant := 16#2#;     -- wincon.h:192
  51.     CONSOLE_TEXTMODE_BUFFER        : constant := 1;         -- wincon.h:685
  52.  
  53.     type COORD;                                             -- wincon.h:29
  54.     type SMALL_RECT;                                        -- wincon.h:34
  55.     type union_anonymous0_t;                                -- wincon.h:49
  56.     type KEY_EVENT_RECORD;                                  -- wincon.h:41
  57.     type MOUSE_EVENT_RECORD;                                -- wincon.h:67
  58.     type WINDOW_BUFFER_SIZE_RECORD;                         -- wincon.h:91
  59.     type MENU_EVENT_RECORD;                                 -- wincon.h:95
  60.     type FOCUS_EVENT_RECORD;                                -- wincon.h:99
  61.     type union_anonymous1_t;                                -- wincon.h:111
  62.     type INPUT_RECORD;                                      -- wincon.h:103
  63.     type union_anonymous2_t;                                -- wincon.h:128
  64.     type CHAR_INFO;                                         -- wincon.h:124
  65.     type CONSOLE_SCREEN_BUFFER_INFO;                        -- wincon.h:146
  66.     type CONSOLE_CURSOR_INFO;                               -- wincon.h:154
  67.  
  68.     type PCOORD is access all COORD;                        -- wincon.h:32
  69.     type PSMALL_RECT is access all SMALL_RECT;              -- wincon.h:39
  70.     type PKEY_EVENT_RECORD is access all KEY_EVENT_RECORD;  -- wincon.h:51
  71.     type PMOUSE_EVENT_RECORD is access all MOUSE_EVENT_RECORD;
  72.                                                             -- wincon.h:72
  73.     type PWINDOW_BUFFER_SIZE_RECORD is access all WINDOW_BUFFER_SIZE_RECORD;
  74.                                                             -- wincon.h:93
  75.     type PMENU_EVENT_RECORD is access all MENU_EVENT_RECORD;-- wincon.h:97
  76.     type PFOCUS_EVENT_RECORD is access all FOCUS_EVENT_RECORD;
  77.                                                             -- wincon.h:101
  78.     type PINPUT_RECORD is access all INPUT_RECORD;          -- wincon.h:112
  79.     type PCHAR_INFO is access all CHAR_INFO;                -- wincon.h:130
  80.     type PCONSOLE_SCREEN_BUFFER_INFO is access all CONSOLE_SCREEN_BUFFER_INFO;
  81.                                                             -- wincon.h:152
  82.     type PCONSOLE_CURSOR_INFO is access all CONSOLE_CURSOR_INFO;
  83.                                                             -- wincon.h:157
  84.  
  85.     type COORD is                                           -- wincon.h:29
  86.         record
  87.             X: Win32.SHORT;                                 -- wincon.h:30
  88.             Y: Win32.SHORT;                                 -- wincon.h:31
  89.         end record;
  90.  
  91.     type SMALL_RECT is                                      -- wincon.h:34
  92.         record
  93.             Left  : Win32.SHORT;                            -- wincon.h:35
  94.             Top   : Win32.SHORT;                            -- wincon.h:36
  95.             Right : Win32.SHORT;                            -- wincon.h:37
  96.             Bottom: Win32.SHORT;                            -- wincon.h:38
  97.         end record;
  98.  
  99.     type union_anonymous0_t_kind is (                       -- wincon.h:49
  100.         UnicodeChar_kind,
  101.         AsciiChar_kind
  102.     );
  103.  
  104.     type union_anonymous0_t 
  105.         (Which: union_anonymous0_t_kind := UnicodeChar_kind) is
  106.                                                             -- wincon.h:49
  107.         record
  108.             case Which is
  109.                 when UnicodeChar_kind =>
  110.                     UnicodeChar: Win32.WCHAR;               -- wincon.h:47
  111.                 when AsciiChar_kind =>
  112.                     AsciiChar: Win32.CHAR;                  -- wincon.h:48
  113.             end case;
  114.         end record;
  115.  
  116.     pragma Convention(C, union_anonymous0_t);
  117.     pragma Unchecked_Union(union_anonymous0_t);
  118.  
  119.     type KEY_EVENT_RECORD is                                -- wincon.h:41
  120.         record
  121.             bKeyDown         : Win32.BOOL;                  -- wincon.h:42
  122.             wRepeatCount     : Win32.WORD;                  -- wincon.h:43
  123.             wVirtualKeyCode  : Win32.WORD;                  -- wincon.h:44
  124.             wVirtualScanCode : Win32.WORD;                  -- wincon.h:45
  125.             uChar            : union_anonymous0_t;          -- wincon.h:49
  126.             dwControlKeyState: Win32.DWORD;                 -- wincon.h:50
  127.         end record;
  128.  
  129.     type MOUSE_EVENT_RECORD is                              -- wincon.h:67
  130.         record
  131.             dwMousePosition  : COORD;                       -- wincon.h:68
  132.             dwButtonState    : Win32.DWORD;                 -- wincon.h:69
  133.             dwControlKeyState: Win32.DWORD;                 -- wincon.h:70
  134.             dwEventFlags     : Win32.DWORD;                 -- wincon.h:71
  135.         end record;
  136.  
  137.     type WINDOW_BUFFER_SIZE_RECORD is                       -- wincon.h:91
  138.         record
  139.             dwSize: COORD;                                  -- wincon.h:92
  140.         end record;
  141.  
  142.     type MENU_EVENT_RECORD is                               -- wincon.h:95
  143.         record
  144.             dwCommandId: Win32.UINT;                        -- wincon.h:96
  145.         end record;
  146.  
  147.     type FOCUS_EVENT_RECORD is                              -- wincon.h:99
  148.         record
  149.             bSetFocus: Win32.BOOL;                          -- wincon.h:100
  150.         end record;
  151.  
  152.     type union_anonymous1_t_kind is (                       -- wincon.h:111
  153.         KeyEvent_kind,
  154.         MouseEvent_kind,
  155.         WindowBufferSizeEvent_kind,
  156.         MenuEvent_kind,
  157.         FocusEvent_kind
  158.     );
  159.  
  160.     type union_anonymous1_t 
  161.         (Which: union_anonymous1_t_kind := KeyEvent_kind) is-- wincon.h:111
  162.         record
  163.             case Which is
  164.                 when KeyEvent_kind =>
  165.                     KeyEvent     : KEY_EVENT_RECORD;        -- wincon.h:106
  166.                 when MouseEvent_kind =>
  167.                     MouseEvent   : MOUSE_EVENT_RECORD;      -- wincon.h:107
  168.                 when WindowBufferSizeEvent_kind =>
  169.                     WindowBufferSizeEvent: WINDOW_BUFFER_SIZE_RECORD;
  170.                                                             -- wincon.h:108
  171.                 when MenuEvent_kind =>
  172.                     MenuEvent    : MENU_EVENT_RECORD;       -- wincon.h:109
  173.                 when FocusEvent_kind =>
  174.                     FocusEvent   : FOCUS_EVENT_RECORD;      -- wincon.h:110
  175.             end case;
  176.         end record;
  177.  
  178.     pragma Convention(C, union_anonymous1_t);
  179.     pragma Unchecked_Union(union_anonymous1_t);
  180.  
  181.     type INPUT_RECORD is                                    -- wincon.h:103
  182.         record
  183.             EventType: Win32.WORD;                          -- wincon.h:104
  184.             Event    : union_anonymous1_t;                  -- wincon.h:111
  185.         end record;
  186.  
  187.     type union_anonymous2_t_kind is (                       -- wincon.h:128
  188.         UnicodeChar_kind,
  189.         AsciiChar_kind
  190.     );
  191.  
  192.     type union_anonymous2_t 
  193.         (Which: union_anonymous2_t_kind := UnicodeChar_kind) is
  194.                                                             -- wincon.h:128
  195.         record
  196.             case Which is
  197.                 when UnicodeChar_kind =>
  198.                     UnicodeChar: Win32.WCHAR;               -- wincon.h:126
  199.                 when AsciiChar_kind =>
  200.                     AsciiChar: Win32.CHAR;                  -- wincon.h:127
  201.             end case;
  202.         end record;
  203.  
  204.     pragma Convention(C, union_anonymous2_t);
  205.     pragma Unchecked_Union(union_anonymous2_t);
  206.  
  207.     type CHAR_INFO is                                       -- wincon.h:124
  208.         record
  209.             Char      : union_anonymous2_t;                 -- wincon.h:128
  210.             Attributes: Win32.WORD;                         -- wincon.h:129
  211.         end record;
  212.  
  213.     type CONSOLE_SCREEN_BUFFER_INFO is                      -- wincon.h:146
  214.         record
  215.             dwSize             : COORD;                     -- wincon.h:147
  216.             dwCursorPosition   : COORD;                     -- wincon.h:148
  217.             wAttributes        : Win32.WORD;                -- wincon.h:149
  218.             srWindow           : SMALL_RECT;                -- wincon.h:150
  219.             dwMaximumWindowSize: COORD;                     -- wincon.h:151
  220.         end record;
  221.  
  222.     type CONSOLE_CURSOR_INFO is                             -- wincon.h:154
  223.         record
  224.             dwSize  : Win32.DWORD;                          -- wincon.h:155
  225.             bVisible: Win32.BOOL;                           -- wincon.h:156
  226.         end record;
  227.  
  228.     type PHANDLER_ROUTINE is access function (CtrlType: Win32.DWORD) 
  229.         return Win32.BOOL;                                  -- wincon.h:165
  230.     pragma Convention(Stdcall, PHANDLER_ROUTINE);
  231.  
  232.     type ac_INPUT_RECORD_t is access all INPUT_RECORD; -- wincon.h:254
  233.     type ac_CHAR_INFO_t is access all CHAR_INFO;       -- wincon.h:305
  234.     type ac_CONSOLE_CURSOR_INFO_t is access all CONSOLE_CURSOR_INFO;
  235.                                                             -- wincon.h:523
  236.     type ac_SMALL_RECT_t is access all SMALL_RECT;     -- wincon.h:534
  237.     type ac_SECURITY_ATTRIBUTES_t is access all 
  238.              Win32.Winbase.SECURITY_ATTRIBUTES;             -- wincon.h:696
  239.  
  240.     function PeekConsoleInputA(hConsoleInput       : Win32.Winnt.HANDLE;
  241.                                lpBuffer            : PINPUT_RECORD;
  242.                                nLength             : Win32.DWORD;
  243.                                lpNumberOfEventsRead: Win32.LPDWORD)
  244.                                                      return Win32.BOOL;
  245.                                                             -- wincon.h:201
  246.  
  247.     function PeekConsoleInput(hConsoleInput       : Win32.Winnt.HANDLE;
  248.                               lpBuffer            : PINPUT_RECORD;
  249.                               nLength             : Win32.DWORD;
  250.                               lpNumberOfEventsRead: Win32.LPDWORD)
  251.                                                     return Win32.BOOL
  252.                                                     renames PeekConsoleInputA;
  253.                                                             -- wincon.h:201
  254.  
  255.     function PeekConsoleInputW(hConsoleInput       : Win32.Winnt.HANDLE;
  256.                                lpBuffer            : PINPUT_RECORD;
  257.                                nLength             : Win32.DWORD;
  258.                                lpNumberOfEventsRead: Win32.LPDWORD)
  259.                                                      return Win32.BOOL;
  260.                                                             -- wincon.h:210
  261.  
  262.     function ReadConsoleInputA(hConsoleInput       : Win32.Winnt.HANDLE;
  263.                                lpBuffer            : PINPUT_RECORD;
  264.                                nLength             : Win32.DWORD;
  265.                                lpNumberOfEventsRead: Win32.LPDWORD)
  266.                                                      return Win32.BOOL;
  267.                                                             -- wincon.h:225
  268.  
  269.     function ReadConsoleInput(hConsoleInput       : Win32.Winnt.HANDLE;
  270.                               lpBuffer            : PINPUT_RECORD;
  271.                               nLength             : Win32.DWORD;
  272.                               lpNumberOfEventsRead: Win32.LPDWORD)
  273.                                                     return Win32.BOOL
  274.                                                     renames ReadConsoleInputA;
  275.                                                             -- wincon.h:225
  276.  
  277.     function ReadConsoleInputW(hConsoleInput       : Win32.Winnt.HANDLE;
  278.                                lpBuffer            : PINPUT_RECORD;
  279.                                nLength             : Win32.DWORD;
  280.                                lpNumberOfEventsRead: Win32.LPDWORD)
  281.                                                      return Win32.BOOL;
  282.                                                             -- wincon.h:234
  283.  
  284.     function WriteConsoleInputA(hConsoleInput          : Win32.Winnt.HANDLE;
  285.                                 lpBuffer               : ac_INPUT_RECORD_t;
  286.                                 nLength                : Win32.DWORD;
  287.                                 lpNumberOfEventsWritten: Win32.LPDWORD)
  288.                                                          return Win32.BOOL;
  289.                                                             -- wincon.h:249
  290.  
  291.     function WriteConsoleInput(
  292.         hConsoleInput          : Win32.Winnt.HANDLE;
  293.         lpBuffer               : ac_INPUT_RECORD_t;
  294.         nLength                : Win32.DWORD;
  295.         lpNumberOfEventsWritten: Win32.LPDWORD)
  296.                                  return Win32.BOOL
  297.                                  renames WriteConsoleInputA;-- wincon.h:249
  298.  
  299.     function WriteConsoleInputW(hConsoleInput          : Win32.Winnt.HANDLE;
  300.                                 lpBuffer               : ac_INPUT_RECORD_t;
  301.                                 nLength                : Win32.DWORD;
  302.                                 lpNumberOfEventsWritten: Win32.LPDWORD)
  303.                                                          return Win32.BOOL;
  304.                                                             -- wincon.h:258
  305.  
  306.     function ReadConsoleOutputA(hConsoleOutput: Win32.Winnt.HANDLE;
  307.                                 lpBuffer      : PCHAR_INFO;
  308.                                 dwBufferSize  : COORD;
  309.                                 dwBufferCoord : COORD;
  310.                                 lpReadRegion  : PSMALL_RECT)
  311.                                                 return Win32.BOOL;
  312.                                                             -- wincon.h:273
  313.  
  314.     function ReadConsoleOutput(hConsoleOutput: Win32.Winnt.HANDLE;
  315.                                lpBuffer      : PCHAR_INFO;
  316.                                dwBufferSize  : COORD;
  317.                                dwBufferCoord : COORD;
  318.                                lpReadRegion  : PSMALL_RECT)
  319.                                                return Win32.BOOL
  320.                                                renames ReadConsoleOutputA;
  321.                                                             -- wincon.h:273
  322.  
  323.     function ReadConsoleOutputW(hConsoleOutput: Win32.Winnt.HANDLE;
  324.                                 lpBuffer      : PCHAR_INFO;
  325.                                 dwBufferSize  : COORD;
  326.                                 dwBufferCoord : COORD;
  327.                                 lpReadRegion  : PSMALL_RECT)
  328.                                                 return Win32.BOOL;
  329.                                                             -- wincon.h:283
  330.  
  331.     function WriteConsoleOutputA(hConsoleOutput: Win32.Winnt.HANDLE;
  332.                                  lpBuffer      : ac_CHAR_INFO_t;
  333.                                  dwBufferSize  : COORD;
  334.                                  dwBufferCoord : COORD;
  335.                                  lpWriteRegion : PSMALL_RECT)
  336.                                                  return Win32.BOOL;
  337.                                                             -- wincon.h:299
  338.  
  339.     function WriteConsoleOutput(hConsoleOutput: Win32.Winnt.HANDLE;
  340.                                 lpBuffer      : ac_CHAR_INFO_t;
  341.                                 dwBufferSize  : COORD;
  342.                                 dwBufferCoord : COORD;
  343.                                 lpWriteRegion : PSMALL_RECT)
  344.                                                 return Win32.BOOL
  345.                                                 renames WriteConsoleOutputA;
  346.                                                             -- wincon.h:299
  347.  
  348.     function WriteConsoleOutputW(hConsoleOutput: Win32.Winnt.HANDLE;
  349.                                  lpBuffer      : ac_CHAR_INFO_t;
  350.                                  dwBufferSize  : COORD;
  351.                                  dwBufferCoord : COORD;
  352.                                  lpWriteRegion : PSMALL_RECT)
  353.                                                  return Win32.BOOL;
  354.                                                             -- wincon.h:309
  355.  
  356.     function ReadConsoleOutputCharacterA(
  357.         hConsoleOutput     : Win32.Winnt.HANDLE;
  358.         lpCharacter        : Win32.LPSTR;
  359.         nLength            : Win32.DWORD;
  360.         dwReadCoord        : COORD;
  361.         lpNumberOfCharsRead: Win32.LPDWORD)
  362.         return Win32.BOOL;                                  -- wincon.h:325
  363.  
  364.     function ReadConsoleOutputCharacter(
  365.         hConsoleOutput     : Win32.Winnt.HANDLE;
  366.         lpCharacter        : Win32.LPSTR;
  367.         nLength            : Win32.DWORD;
  368.         dwReadCoord        : COORD;
  369.         lpNumberOfCharsRead: Win32.LPDWORD)
  370.         return Win32.BOOL
  371.         renames ReadConsoleOutputCharacterA;                -- wincon.h:325
  372.  
  373.     function ReadConsoleOutputCharacterW(
  374.         hConsoleOutput     : Win32.Winnt.HANDLE;
  375.         lpCharacter        : Win32.LPWSTR;
  376.         nLength            : Win32.DWORD;
  377.         dwReadCoord        : COORD;
  378.         lpNumberOfCharsRead: Win32.LPDWORD)
  379.         return Win32.BOOL;                                  -- wincon.h:335
  380.  
  381.     function ReadConsoleOutputAttribute(
  382.         hConsoleOutput     : Win32.Winnt.HANDLE;
  383.         lpAttribute        : Win32.LPWORD;
  384.         nLength            : Win32.DWORD;
  385.         dwReadCoord        : COORD;
  386.         lpNumberOfAttrsRead: Win32.LPDWORD)
  387.         return Win32.BOOL;                                  -- wincon.h:351
  388.  
  389.     function WriteConsoleOutputCharacterA(
  390.         hConsoleOutput        : Win32.Winnt.HANDLE;
  391.         lpCharacter           : Win32.LPCSTR;
  392.         nLength               : Win32.DWORD;
  393.         dwWriteCoord          : COORD;
  394.         lpNumberOfCharsWritten: Win32.LPDWORD)
  395.         return Win32.BOOL;                                  -- wincon.h:362
  396.  
  397.     function WriteConsoleOutputCharacter(
  398.         hConsoleOutput        : Win32.Winnt.HANDLE;
  399.         lpCharacter           : Win32.LPCSTR;
  400.         nLength               : Win32.DWORD;
  401.         dwWriteCoord          : COORD;
  402.         lpNumberOfCharsWritten: Win32.LPDWORD)
  403.         return Win32.BOOL
  404.         renames WriteConsoleOutputCharacterA;               -- wincon.h:362
  405.  
  406.     function WriteConsoleOutputCharacterW(
  407.         hConsoleOutput        : Win32.Winnt.HANDLE;
  408.         lpCharacter           : Win32.LPCWSTR;
  409.         nLength               : Win32.DWORD;
  410.         dwWriteCoord          : COORD;
  411.         lpNumberOfCharsWritten: Win32.LPDWORD)
  412.         return Win32.BOOL;                                  -- wincon.h:372
  413.  
  414.     function WriteConsoleOutputAttribute(
  415.         hConsoleOutput        : Win32.Winnt.HANDLE;
  416.         lpAttribute           : Win32.PWSTR;
  417.         nLength               : Win32.DWORD;
  418.         dwWriteCoord          : COORD;
  419.         lpNumberOfAttrsWritten: Win32.LPDWORD)
  420.         return Win32.BOOL;                                  -- wincon.h:388
  421.  
  422.     function FillConsoleOutputCharacterA(
  423.         hConsoleOutput        : Win32.Winnt.HANDLE;
  424.         cCharacter            : Win32.CHAR;
  425.         nLength               : Win32.DWORD;
  426.         dwWriteCoord          : COORD;
  427.         lpNumberOfCharsWritten: Win32.LPDWORD)
  428.         return Win32.BOOL;                                  -- wincon.h:399
  429.  
  430.     function FillConsoleOutputCharacter(
  431.         hConsoleOutput        : Win32.Winnt.HANDLE;
  432.         cCharacter            : Win32.CHAR;
  433.         nLength               : Win32.DWORD;
  434.         dwWriteCoord          : COORD;
  435.         lpNumberOfCharsWritten: Win32.LPDWORD)
  436.         return Win32.BOOL
  437.         renames FillConsoleOutputCharacterA;                -- wincon.h:399
  438.  
  439.     function FillConsoleOutputCharacterW(
  440.         hConsoleOutput        : Win32.Winnt.HANDLE;
  441.         cCharacter            : Win32.WCHAR;
  442.         nLength               : Win32.DWORD;
  443.         dwWriteCoord          : COORD;
  444.         lpNumberOfCharsWritten: Win32.LPDWORD)
  445.         return Win32.BOOL;                                  -- wincon.h:409
  446.  
  447.     function FillConsoleOutputAttribute(
  448.         hConsoleOutput        : Win32.Winnt.HANDLE;
  449.         wAttribute            : Win32.WORD;
  450.         nLength               : Win32.DWORD;
  451.         dwWriteCoord          : COORD;
  452.         lpNumberOfAttrsWritten: Win32.LPDWORD)
  453.         return Win32.BOOL;                                  -- wincon.h:425
  454.  
  455.     function GetConsoleMode(
  456.         hConsoleHandle: Win32.Winnt.HANDLE;
  457.         lpMode        : Win32.LPDWORD)
  458.         return Win32.BOOL;                                  -- wincon.h:436
  459.  
  460.     function GetNumberOfConsoleInputEvents(
  461.         hConsoleInput   : Win32.Winnt.HANDLE;
  462.         lpNumberOfEvents: Win32.LPDWORD)
  463.         return Win32.BOOL;                                  -- wincon.h:444
  464.  
  465.     function GetConsoleScreenBufferInfo(
  466.         hConsoleOutput           : Win32.Winnt.HANDLE;
  467.         lpConsoleScreenBufferInfo: PCONSOLE_SCREEN_BUFFER_INFO)
  468.         return Win32.BOOL;                                  -- wincon.h:452
  469.  
  470.     function GetLargestConsoleWindowSize(
  471.         hConsoleOutput: Win32.Winnt.HANDLE) return COORD;   -- wincon.h:460
  472.  
  473.     function GetConsoleCursorInfo(
  474.         hConsoleOutput     : Win32.Winnt.HANDLE;
  475.         lpConsoleCursorInfo: PCONSOLE_CURSOR_INFO)
  476.         return Win32.BOOL;                                  -- wincon.h:467
  477.  
  478.     function GetNumberOfConsoleMouseButtons(
  479.         lpNumberOfMouseButtons: Win32.LPDWORD) return Win32.BOOL;
  480.                                                             -- wincon.h:475
  481.  
  482.     function SetConsoleMode(hConsoleHandle: Win32.Winnt.HANDLE;
  483.                             dwMode        : Win32.DWORD)
  484.                             return Win32.BOOL;              -- wincon.h:482
  485.  
  486.     function SetConsoleActiveScreenBuffer(
  487.         hConsoleOutput: Win32.Winnt.HANDLE) return Win32.BOOL;
  488.                                                             -- wincon.h:490
  489.  
  490.     function FlushConsoleInputBuffer(
  491.         hConsoleInput: Win32.Winnt.HANDLE) return Win32.BOOL;
  492.                                                             -- wincon.h:497
  493.  
  494.     function SetConsoleScreenBufferSize(
  495.         hConsoleOutput: Win32.Winnt.HANDLE;
  496.         dwSize        : COORD)
  497.         return Win32.BOOL;                                  -- wincon.h:504
  498.  
  499.     function SetConsoleCursorPosition(
  500.         hConsoleOutput  : Win32.Winnt.HANDLE;
  501.         dwCursorPosition: COORD)
  502.         return Win32.BOOL;                                  -- wincon.h:512
  503.  
  504.     function SetConsoleCursorInfo(
  505.         hConsoleOutput     : Win32.Winnt.HANDLE;
  506.         lpConsoleCursorInfo: ac_CONSOLE_CURSOR_INFO_t)
  507.         return Win32.BOOL;                                  -- wincon.h:520
  508.  
  509.     function ScrollConsoleScreenBufferA(
  510.         hConsoleOutput     : Win32.Winnt.HANDLE;
  511.         lpScrollRectangle  : ac_SMALL_RECT_t;
  512.         lpClipRectangle    : ac_SMALL_RECT_t;
  513.         dwDestinationOrigin: COORD;
  514.         lpFill             : ac_CHAR_INFO_t)
  515.         return Win32.BOOL;                                  -- wincon.h:528
  516.  
  517.     function ScrollConsoleScreenBuffer(
  518.         hConsoleOutput     : Win32.Winnt.HANDLE;
  519.         lpScrollRectangle  : ac_SMALL_RECT_t;
  520.         lpClipRectangle    : ac_SMALL_RECT_t;
  521.         dwDestinationOrigin: COORD;
  522.         lpFill             : ac_CHAR_INFO_t)
  523.         return Win32.BOOL
  524.         renames ScrollConsoleScreenBufferA;                 -- wincon.h:528
  525.  
  526.     function ScrollConsoleScreenBufferW(
  527.         hConsoleOutput     : Win32.Winnt.HANDLE;
  528.         lpScrollRectangle  : ac_SMALL_RECT_t;
  529.         lpClipRectangle    : ac_SMALL_RECT_t;
  530.         dwDestinationOrigin: COORD;
  531.         lpFill             : ac_CHAR_INFO_t)
  532.         return Win32.BOOL;                                  -- wincon.h:538
  533.  
  534.     function SetConsoleWindowInfo(
  535.         hConsoleOutput : Win32.Winnt.HANDLE;
  536.         bAbsolute      : Win32.BOOL;
  537.         lpConsoleWindow: ac_SMALL_RECT_t)
  538.         return Win32.BOOL;                                  -- wincon.h:554
  539.  
  540.     function SetConsoleTextAttribute(
  541.         hConsoleOutput: Win32.Winnt.HANDLE;
  542.         wAttributes   : Win32.WORD)
  543.         return Win32.BOOL;                                  -- wincon.h:563
  544.  
  545.     function SetConsoleCtrlHandler(
  546.         HandlerRoutine: PHANDLER_ROUTINE;
  547.         Add           : Win32.BOOL)
  548.         return Win32.BOOL;                                  -- wincon.h:571
  549.  
  550.     function GenerateConsoleCtrlEvent(
  551.         dwCtrlEvent     : Win32.DWORD;
  552.         dwProcessGroupId: Win32.DWORD)
  553.         return Win32.BOOL;                                  -- wincon.h:579
  554.  
  555.     function AllocConsole return Win32.BOOL;                -- wincon.h:587
  556.      
  557.     function FreeConsole return Win32.BOOL;                 -- wincon.h:592
  558.  
  559.     function GetConsoleTitleA(
  560.         lpConsoleTitle: Win32.LPSTR;
  561.         nSize         : Win32.DWORD)
  562.         return Win32.DWORD;                                 -- wincon.h:598
  563.         
  564.     function GetConsoleTitle(
  565.         lpConsoleTitle: Win32.LPSTR;
  566.         nSize         : Win32.DWORD)
  567.         return Win32.DWORD
  568.         renames GetConsoleTitleA;                           -- wincon.h:598
  569.  
  570.     function GetConsoleTitleW(
  571.         lpConsoleTitle: Win32.LPWSTR;
  572.         nSize         : Win32.DWORD)
  573.         return Win32.DWORD;                                 -- wincon.h:605
  574.  
  575.     function SetConsoleTitleA(
  576.         lpConsoleTitle: Win32.LPCSTR) return Win32.BOOL;    -- wincon.h:618
  577.  
  578.     function SetConsoleTitle(lpConsoleTitle: Win32.LPCSTR) 
  579.         return Win32.BOOL renames SetConsoleTitleA;         -- wincon.h:618
  580.  
  581.     function SetConsoleTitleW(
  582.         lpConsoleTitle: Win32.LPCWSTR) return Win32.BOOL;   -- wincon.h:624
  583.  
  584.     function ReadConsoleA(hConsoleInput       : Win32.Winnt.HANDLE;
  585.                           lpBuffer            : Win32.LPVOID;
  586.                           nNumberOfCharsToRead: Win32.DWORD;
  587.                           lpNumberOfCharsRead : Win32.LPDWORD;
  588.                           lpReserved          : Win32.LPVOID)
  589.                                                 return Win32.BOOL;
  590.                                                             -- wincon.h:636
  591.  
  592.     function ReadConsole(hConsoleInput       : Win32.Winnt.HANDLE;
  593.                          lpBuffer            : Win32.LPVOID;
  594.                          nNumberOfCharsToRead: Win32.DWORD;
  595.                          lpNumberOfCharsRead : Win32.LPDWORD;
  596.                          lpReserved          : Win32.LPVOID)
  597.                                                return Win32.BOOL
  598.                                                renames ReadConsoleA;
  599.                                                             -- wincon.h:636
  600.  
  601.     function ReadConsoleW(hConsoleInput       : Win32.Winnt.HANDLE;
  602.                           lpBuffer            : Win32.LPVOID;
  603.                           nNumberOfCharsToRead: Win32.DWORD;
  604.                           lpNumberOfCharsRead : Win32.LPDWORD;
  605.                           lpReserved          : Win32.LPVOID)
  606.                                                 return Win32.BOOL;
  607.                                                             -- wincon.h:646
  608.  
  609.     function WriteConsoleA(hConsoleOutput        : Win32.Winnt.HANDLE;
  610.                            lpBuffer              : Win32.pcvoid;
  611.                            nNumberOfCharsToWrite : Win32.DWORD;
  612.                            lpNumberOfCharsWritten: Win32.LPDWORD;
  613.                            lpReserved            : Win32.LPVOID)
  614.                                                    return Win32.BOOL;
  615.                                                             -- wincon.h:662
  616.  
  617.     function WriteConsole(hConsoleOutput        : Win32.Winnt.HANDLE;
  618.                           lpBuffer              : Win32.pcvoid;
  619.                           nNumberOfCharsToWrite : Win32.DWORD;
  620.                           lpNumberOfCharsWritten: Win32.LPDWORD;
  621.                           lpReserved            : Win32.LPVOID)
  622.                                                   return Win32.BOOL
  623.                                                   renames WriteConsoleA;
  624.                                                             -- wincon.h:662
  625.  
  626.     function WriteConsoleW(hConsoleOutput        : Win32.Winnt.HANDLE;
  627.                            lpBuffer              : Win32.pcvoid;
  628.                            nNumberOfCharsToWrite : Win32.DWORD;
  629.                            lpNumberOfCharsWritten: Win32.LPDWORD;
  630.                            lpReserved            : Win32.LPVOID)
  631.                                                    return Win32.BOOL;
  632.                                                             -- wincon.h:672
  633.  
  634.     function CreateConsoleScreenBuffer(
  635.         dwDesiredAccess     : Win32.DWORD;
  636.         dwShareMode         : Win32.DWORD;
  637.         lpSecurityAttributes: ac_SECURITY_ATTRIBUTES_t;
  638.         dwFlags             : Win32.DWORD;
  639.         lpScreenBufferData  : Win32.LPVOID)
  640.                          return Win32.Winnt.HANDLE;         -- wincon.h:690
  641.  
  642.     function GetConsoleCP return Win32.UINT;                -- wincon.h:701
  643.  
  644.     function SetConsoleCP(wCodePageID: Win32.UINT) 
  645.         return Win32.BOOL;                                  -- wincon.h:706
  646.  
  647.     function GetConsoleOutputCP return Win32.UINT;          -- wincon.h:713
  648.  
  649.     function SetConsoleOutputCP(wCodePageID: Win32.UINT) 
  650.         return Win32.BOOL;                                  -- wincon.h:718
  651.  
  652. private
  653.  
  654.     pragma Convention(C, COORD);                            -- wincon.h:29
  655.     pragma Convention(C, SMALL_RECT);                       -- wincon.h:34
  656.     pragma Convention(C, KEY_EVENT_RECORD);                 -- wincon.h:41
  657.     pragma Convention(C, MOUSE_EVENT_RECORD);               -- wincon.h:67
  658.     pragma Convention(C, WINDOW_BUFFER_SIZE_RECORD);        -- wincon.h:91
  659.     pragma Convention(C, MENU_EVENT_RECORD);                -- wincon.h:95
  660.     pragma Convention(C, FOCUS_EVENT_RECORD);               -- wincon.h:99
  661.     pragma Convention(C, INPUT_RECORD);                     -- wincon.h:103
  662.     pragma Convention(C, CHAR_INFO);                        -- wincon.h:124
  663.     pragma Convention(C, CONSOLE_SCREEN_BUFFER_INFO);       -- wincon.h:146
  664.     pragma Convention(C, CONSOLE_CURSOR_INFO);              -- wincon.h:154
  665.  
  666.     pragma Import(Stdcall, PeekConsoleInputA, "PeekConsoleInputA");
  667.                                                             -- wincon.h:201
  668.     pragma Import(Stdcall, PeekConsoleInputW, "PeekConsoleInputW");
  669.                                                             -- wincon.h:210
  670.     pragma Import(Stdcall, ReadConsoleInputA, "ReadConsoleInputA");
  671.                                                             -- wincon.h:225
  672.     pragma Import(Stdcall, ReadConsoleInputW, "ReadConsoleInputW");
  673.                                                             -- wincon.h:234
  674.     pragma Import(Stdcall, WriteConsoleInputA, "WriteConsoleInputA");
  675.                                                             -- wincon.h:249
  676.     pragma Import(Stdcall, WriteConsoleInputW, "WriteConsoleInputW");
  677.                                                             -- wincon.h:258
  678.     pragma Import(Stdcall, ReadConsoleOutputA, "ReadConsoleOutputA");
  679.                                                             -- wincon.h:273
  680.     pragma Import(Stdcall, ReadConsoleOutputW, "ReadConsoleOutputW");
  681.                                                             -- wincon.h:283
  682.     pragma Import(Stdcall, WriteConsoleOutputA, "WriteConsoleOutputA");
  683.                                                             -- wincon.h:299
  684.     pragma Import(Stdcall, WriteConsoleOutputW, "WriteConsoleOutputW");
  685.                                                             -- wincon.h:309
  686.     pragma Import(Stdcall, ReadConsoleOutputCharacterA, 
  687.                      "ReadConsoleOutputCharacterA");        -- wincon.h:325
  688.     pragma Import(Stdcall, ReadConsoleOutputCharacterW, 
  689.                      "ReadConsoleOutputCharacterW");        -- wincon.h:335
  690.     pragma Import(Stdcall, ReadConsoleOutputAttribute, "ReadConsoleOutputAttribute");
  691.                                                             -- wincon.h:351
  692.     pragma Import(Stdcall, WriteConsoleOutputCharacterA, 
  693.                      "WriteConsoleOutputCharacterA");       -- wincon.h:362
  694.     pragma Import(Stdcall, WriteConsoleOutputCharacterW, 
  695.                      "WriteConsoleOutputCharacterW");       -- wincon.h:372
  696.     pragma Import(Stdcall, WriteConsoleOutputAttribute, 
  697.                      "WriteConsoleOutputAttribute");        -- wincon.h:388
  698.     pragma Import(Stdcall, FillConsoleOutputCharacterA, 
  699.                      "FillConsoleOutputCharacterA");        -- wincon.h:399
  700.     pragma Import(Stdcall, FillConsoleOutputCharacterW, 
  701.                      "FillConsoleOutputCharacterW");        -- wincon.h:409
  702.     pragma Import(Stdcall, FillConsoleOutputAttribute, "FillConsoleOutputAttribute");
  703.                                                             -- wincon.h:425
  704.     pragma Import(Stdcall, GetConsoleMode, "GetConsoleMode");     -- wincon.h:436
  705.     pragma Import(Stdcall, GetNumberOfConsoleInputEvents, 
  706.                      "GetNumberOfConsoleInputEvents");      -- wincon.h:444
  707.     pragma Import(Stdcall, GetConsoleScreenBufferInfo, "GetConsoleScreenBufferInfo");
  708.                                                             -- wincon.h:452
  709.     pragma Import(Stdcall, GetLargestConsoleWindowSize, 
  710.                      "GetLargestConsoleWindowSize");        -- wincon.h:460
  711.     pragma Import(Stdcall, GetConsoleCursorInfo, "GetConsoleCursorInfo");
  712.                                                             -- wincon.h:467
  713.     pragma Import(Stdcall, GetNumberOfConsoleMouseButtons, 
  714.                      "GetNumberOfConsoleMouseButtons");     -- wincon.h:475
  715.     pragma Import(Stdcall, SetConsoleMode, "SetConsoleMode");     -- wincon.h:482
  716.     pragma Import(Stdcall, SetConsoleActiveScreenBuffer, 
  717.                      "SetConsoleActiveScreenBuffer");       -- wincon.h:490
  718.     pragma Import(Stdcall, FlushConsoleInputBuffer, "FlushConsoleInputBuffer");
  719.                                                             -- wincon.h:497
  720.     pragma Import(Stdcall, SetConsoleScreenBufferSize, "SetConsoleScreenBufferSize");
  721.                                                             -- wincon.h:504
  722.     pragma Import(Stdcall, SetConsoleCursorPosition, "SetConsoleCursorPosition");
  723.                                                             -- wincon.h:512
  724.     pragma Import(Stdcall, SetConsoleCursorInfo, "SetConsoleCursorInfo");
  725.                                                             -- wincon.h:520
  726.     pragma Import(Stdcall, ScrollConsoleScreenBufferA, "ScrollConsoleScreenBufferA");
  727.                                                             -- wincon.h:528
  728.     pragma Import(Stdcall, ScrollConsoleScreenBufferW, "ScrollConsoleScreenBufferW");
  729.                                                             -- wincon.h:538
  730.     pragma Import(Stdcall, SetConsoleWindowInfo, "SetConsoleWindowInfo");
  731.                                                             -- wincon.h:554
  732.     pragma Import(Stdcall, SetConsoleTextAttribute, "SetConsoleTextAttribute");
  733.                                                             -- wincon.h:563
  734.     pragma Import(Stdcall, SetConsoleCtrlHandler, "SetConsoleCtrlHandler");
  735.                                                             -- wincon.h:571
  736.     pragma Import(Stdcall, GenerateConsoleCtrlEvent, "GenerateConsoleCtrlEvent");
  737.                                                             -- wincon.h:579
  738.     pragma Import(Stdcall, AllocConsole, "AllocConsole");         -- wincon.h:587
  739.     pragma Import(Stdcall, FreeConsole, "FreeConsole");           -- wincon.h:592
  740.     pragma Import(Stdcall, GetConsoleTitleA, "GetConsoleTitleA"); -- wincon.h:598
  741.     pragma Import(Stdcall, GetConsoleTitleW, "GetConsoleTitleW"); -- wincon.h:605
  742.     pragma Import(Stdcall, SetConsoleTitleA, "SetConsoleTitleA"); -- wincon.h:618
  743.     pragma Import(Stdcall, SetConsoleTitleW, "SetConsoleTitleW"); -- wincon.h:624
  744.     pragma Import(Stdcall, ReadConsoleA, "ReadConsoleA");         -- wincon.h:636
  745.     pragma Import(Stdcall, ReadConsoleW, "ReadConsoleW");         -- wincon.h:646
  746.     pragma Import(Stdcall, WriteConsoleA, "WriteConsoleA");       -- wincon.h:662
  747.     pragma Import(Stdcall, WriteConsoleW, "WriteConsoleW");       -- wincon.h:672
  748.     pragma Import(Stdcall, CreateConsoleScreenBuffer, "CreateConsoleScreenBuffer");
  749.                                                             -- wincon.h:690
  750.     pragma Import(Stdcall, GetConsoleCP, "GetConsoleCP");         -- wincon.h:701
  751.     pragma Import(Stdcall, SetConsoleCP, "SetConsoleCP");         -- wincon.h:706
  752.     pragma Import(Stdcall, GetConsoleOutputCP, "GetConsoleOutputCP");
  753.                                                             -- wincon.h:713
  754.     pragma Import(Stdcall, SetConsoleOutputCP, "SetConsoleOutputCP");
  755.                                                             -- wincon.h:718
  756.  
  757. -------------------------------------------------------------------------------
  758. --
  759. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  760. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  761. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  762. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  763. -- the accuracy and the use of this file.  This file may be used, copied,
  764. -- modified and distributed only by licensees of Microsoft Corporation's
  765. -- WIN32 Software Development Kit in accordance with the terms of the 
  766. -- licensee's End-User License Agreement for Microsoft Software for the
  767. -- WIN32 Development Kit.
  768. --
  769. -- Copyright (c) Intermetrics, Inc. 1995
  770. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  771. -- Microsoft is a registered trademark and Windows and Windows NT are
  772. -- trademarks of Microsoft Corporation.
  773. --
  774. -------------------------------------------------------------------------------
  775.  
  776. end Win32.Wincon;
  777.