home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-ntsdexts.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  3.8 KB  |  85 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-ntsdexts.ads,v $ 
  2. -- $Revision: 1.10 $ $Date: 96/03/15 12:54:15 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Stdarg;
  6. with Win32.Winnt;
  7.  
  8. package Win32.Ntsdexts is
  9.  
  10.  
  11.     type NTSD_EXTENSION_APIS;                               -- ntsdexts.h:68
  12.  
  13.     type PNTSD_EXTENSION_APIS is access all NTSD_EXTENSION_APIS;
  14.                                                             -- ntsdexts.h:75
  15.  
  16.     type PNTSD_OUTPUT_ROUTINE is access procedure (
  17.                 p1  : Win32.PCHAR;
  18.                 Args: Stdarg.ArgList := Stdarg.Empty);      -- ntsdexts.h:35
  19.     pragma Convention(Stdcall, PNTSD_OUTPUT_ROUTINE);
  20.  
  21.     type PNTSD_GET_EXPRESSION is access function (
  22.                 p1: Win32.PCHAR)
  23.                return Win32.DWORD;                          -- ntsdexts.h:42
  24.     pragma Convention(Stdcall, PNTSD_GET_EXPRESSION);
  25.  
  26.     type PNTSD_GET_SYMBOL is access procedure (
  27.                 offset       : Win32.LPVOID;
  28.                 pchBuffer    : Win32.PUCHAR;
  29.                 pDisplacement: Win32.LPDWORD);              -- ntsdexts.h:48
  30.     pragma Convention(Stdcall, PNTSD_GET_SYMBOL);
  31.  
  32.     type PNTSD_DISASM is access function (
  33.                 lpOffset             : Win32.LPDWORD;
  34.                 lpBuffer             : Win32.LPSTR;
  35.                 fShowEfeectiveAddress: Win32.BOOL)
  36.                return Win32.DWORD;                          -- ntsdexts.h:56
  37.     pragma Convention(Stdcall, PNTSD_DISASM);
  38.  
  39.     type PNTSD_CHECK_CONTROL_C is access function return Win32.BOOL;
  40.     pragma Convention(Stdcall, PNTSD_CHECK_CONTROL_C);
  41.                                                             -- ntsdexts.h:64
  42.  
  43.     type NTSD_EXTENSION_APIS is                             -- ntsdexts.h:68
  44.         record
  45.             nSize                 : Win32.DWORD;            -- ntsdexts.h:69
  46.             lpOutputRoutine       : PNTSD_OUTPUT_ROUTINE;   -- ntsdexts.h:70
  47.             lpGetExpressionRoutine: PNTSD_GET_EXPRESSION;   -- ntsdexts.h:71
  48.             lpGetSymbolRoutine    : PNTSD_GET_SYMBOL;       -- ntsdexts.h:72
  49.             lpDisasmRoutine       : PNTSD_DISASM;           -- ntsdexts.h:73
  50.             lpCheckControlCRoutine: PNTSD_CHECK_CONTROL_C;  -- ntsdexts.h:74
  51.         end record;
  52.  
  53.     type PNTSD_EXTENSION_ROUTINE is access procedure (
  54.                 hCurrentProcess : Win32.Winnt.HANDLE;
  55.                 hCurrentThread  : Win32.Winnt.HANDLE;
  56.                 dwCurrentPc     : Win32.DWORD;
  57.                 lpExtensionApis : PNTSD_EXTENSION_APIS;
  58.                 lpArgumentString: Win32.LPSTR);             -- ntsdexts.h:79
  59.     pragma Convention(Stdcall, PNTSD_EXTENSION_ROUTINE);
  60.  
  61. private
  62.  
  63.     pragma Convention(C, NTSD_EXTENSION_APIS);              -- ntsdexts.h:68
  64.  
  65. -------------------------------------------------------------------------------
  66. --
  67. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  68. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  69. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  70. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  71. -- the accuracy and the use of this file.  This file may be used, copied,
  72. -- modified and distributed only by licensees of Microsoft Corporation's
  73. -- WIN32 Software Development Kit in accordance with the terms of the 
  74. -- licensee's End-User License Agreement for Microsoft Software for the
  75. -- WIN32 Development Kit.
  76. --
  77. -- Copyright (c) Intermetrics, Inc. 1995
  78. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  79. -- Microsoft is a registered trademark and Windows and Windows NT are
  80. -- trademarks of Microsoft Corporation.
  81. --
  82. -------------------------------------------------------------------------------
  83.  
  84. end Win32.Ntsdexts;
  85.