home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-wownt32.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  7.5 KB  |  153 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-wownt32.ads,v $ 
  2. -- $Revision: 1.9 $ $Date: 96/03/15 12:58:42 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Winnt;
  6.  
  7. package Win32.Wownt32 is
  8.  
  9.     WCB16_MAX_CBARGS : constant := 16;                      -- wownt32.h:241
  10.     WCB16_PASCAL     : constant := 16#0#;                   -- wownt32.h:243
  11.     WCB16_CDECL      : constant := 16#1#;                   -- wownt32.h:244
  12.  
  13.     type WOW_HANDLE_TYPE is (                               -- wownt32.h:112
  14.         WOW_TYPE_HWND,                                      -- wownt32.h:113
  15.         WOW_TYPE_HMENU,                                     -- wownt32.h:114
  16.         WOW_TYPE_HDWP,                                      -- wownt32.h:115
  17.         WOW_TYPE_HDROP,                                     -- wownt32.h:116
  18.         WOW_TYPE_HDC,                                       -- wownt32.h:117
  19.         WOW_TYPE_HFONT,                                     -- wownt32.h:118
  20.         WOW_TYPE_HMETAFILE,                                 -- wownt32.h:119
  21.         WOW_TYPE_HRGN,                                      -- wownt32.h:120
  22.         WOW_TYPE_HBITMAP,                                   -- wownt32.h:121
  23.         WOW_TYPE_HBRUSH,                                    -- wownt32.h:122
  24.         WOW_TYPE_HPALETTE,                                  -- wownt32.h:123
  25.         WOW_TYPE_HPEN,                                      -- wownt32.h:124
  26.         WOW_TYPE_HACCEL,                                    -- wownt32.h:125
  27.         WOW_TYPE_HTASK,                                     -- wownt32.h:126
  28.         WOW_TYPE_FULLHWND                                   -- wownt32.h:128
  29.     );
  30.     for WOW_HANDLE_TYPE'size use 32;                        -- wownt32.h:112
  31.  
  32.     function WOWGetVDMPointer(
  33.                 vp            : Win32.DWORD;
  34.                 dwBytes       : Win32.DWORD;
  35.                 fProtectedMode: Win32.BOOL)
  36.                return Win32.LPVOID;                         -- wownt32.h:37
  37.  
  38.     function WOWGetVDMPointerFix(
  39.                 vp            : Win32.DWORD;
  40.                 dwBytes       : Win32.DWORD;
  41.                 fProtectedMode: Win32.BOOL)
  42.                return Win32.LPVOID;                         -- wownt32.h:60
  43.      
  44.     procedure WOWGetVDMPointerUnfix(     
  45.                 vp: Win32.DWORD);                           -- wownt32.h:62
  46.      
  47.     function WOWGlobalAlloc16(     
  48.                 wFlags: Win32.WORD;     
  49.                 cb    : Win32.DWORD)     
  50.                return Win32.WORD;                           -- wownt32.h:74
  51.      
  52.     function WOWGlobalFree16(     
  53.                 hMem: Win32.WORD)     
  54.                return Win32.WORD;                           -- wownt32.h:75
  55.      
  56.     function WOWGlobalLock16(     
  57.                 hMem: Win32.WORD)     
  58.                return Win32.DWORD;                          -- wownt32.h:76
  59.      
  60.     function WOWGlobalUnlock16(     
  61.                 hMem: Win32.WORD)     
  62.                return Win32.BOOL;                           -- wownt32.h:77
  63.      
  64.     function WOWGlobalAllocLock16(     
  65.                 wFlags: Win32.WORD;     
  66.                 cb    : Win32.DWORD;     
  67.                 phMem : Win32.PWORD)     
  68.                return Win32.DWORD;                          -- wownt32.h:84
  69.      
  70.     function WOWGlobalUnlockFree16(     
  71.                 vpMem: Win32.DWORD)     
  72.                return Win32.WORD;                           -- wownt32.h:85
  73.      
  74.     function WOWGlobalLockSize16(     
  75.                 hMem: Win32.WORD;     
  76.                 pcb : Win32.PDWORD)     
  77.                return Win32.DWORD;                          -- wownt32.h:86
  78.  
  79.     procedure WOWYield16;                                   -- wownt32.h:99
  80.  
  81.     procedure WOWDirectedYield16(
  82.                 htask16: Win32.WORD);                       -- wownt32.h:100
  83.  
  84.     function WOWHandle32(
  85.                 p1: Win32.WORD;
  86.                 p2: WOW_HANDLE_TYPE)
  87.                return Win32.Winnt.HANDLE;                   -- wownt32.h:130
  88.  
  89.     function WOWHandle16(
  90.                 p1: Win32.Winnt.HANDLE;
  91.                 p2: WOW_HANDLE_TYPE)
  92.                return Win32.WORD;                           -- wownt32.h:131
  93.  
  94.     function WOWCallback16(
  95.                 vpfn16 : Win32.DWORD;
  96.                 dwParam: Win32.DWORD)
  97.                return Win32.DWORD;                          -- wownt32.h:239
  98.  
  99.     function WOWCallback16Ex(
  100.                 vpfn16    : Win32.DWORD;
  101.                 dwFlags   : Win32.DWORD;
  102.                 cbArgs    : Win32.DWORD;
  103.                 pArgs     : Win32.PVOID;
  104.                 pdwRetCode: Win32.PDWORD)
  105.                return Win32.BOOL;                           -- wownt32.h:246
  106.  
  107. private
  108.  
  109.     pragma Import(Stdcall, WOWGetVDMPointer, "WOWGetVDMPointer"); -- wownt32.h:37
  110.     pragma Import(Stdcall, WOWGetVDMPointerFix, "WOWGetVDMPointerFix");
  111.                                                             -- wownt32.h:60
  112.     pragma Import(Stdcall, WOWGetVDMPointerUnfix, "WOWGetVDMPointerUnfix");
  113.                                                             -- wownt32.h:62
  114.     pragma Import(Stdcall, WOWGlobalAlloc16, "WOWGlobalAlloc16"); -- wownt32.h:74
  115.     pragma Import(Stdcall, WOWGlobalFree16, "WOWGlobalFree16");   -- wownt32.h:75
  116.     pragma Import(Stdcall, WOWGlobalLock16, "WOWGlobalLock16");   -- wownt32.h:76
  117.     pragma Import(Stdcall, WOWGlobalUnlock16, "WOWGlobalUnlock16");
  118.                                                             -- wownt32.h:77
  119.     pragma Import(Stdcall, WOWGlobalAllocLock16, "WOWGlobalAllocLock16");
  120.                                                             -- wownt32.h:84
  121.     pragma Import(Stdcall, WOWGlobalUnlockFree16, "WOWGlobalUnlockFree16");
  122.                                                             -- wownt32.h:85
  123.     pragma Import(Stdcall, WOWGlobalLockSize16, "WOWGlobalLockSize16");
  124.                                                             -- wownt32.h:86
  125.     pragma Import(Stdcall, WOWYield16, "WOWYield16");             -- wownt32.h:99
  126.     pragma Import(Stdcall, WOWDirectedYield16, "WOWDirectedYield16");
  127.                                                             -- wownt32.h:100
  128.     pragma Import(Stdcall, WOWHandle32, "WOWHandle32");           -- wownt32.h:130
  129.     pragma Import(Stdcall, WOWHandle16, "WOWHandle16");           -- wownt32.h:131
  130.     pragma Import(Stdcall, WOWCallback16, "WOWCallback16");       -- wownt32.h:239
  131.     pragma Import(Stdcall, WOWCallback16Ex, "WOWCallback16Ex");   -- wownt32.h:246
  132.  
  133. -------------------------------------------------------------------------------
  134. --
  135. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  136. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  137. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  138. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  139. -- the accuracy and the use of this file.  This file may be used, copied,
  140. -- modified and distributed only by licensees of Microsoft Corporation's
  141. -- WIN32 Software Development Kit in accordance with the terms of the 
  142. -- licensee's End-User License Agreement for Microsoft Software for the
  143. -- WIN32 Development Kit.
  144. --
  145. -- Copyright (c) Intermetrics, Inc. 1995
  146. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  147. -- Microsoft is a registered trademark and Windows and Windows NT are
  148. -- trademarks of Microsoft Corporation.
  149. --
  150. -------------------------------------------------------------------------------
  151.  
  152. end Win32.Wownt32;
  153.