home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-lmmsg.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  4.8 KB  |  105 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-lmmsg.ads,v $ 
  2. -- $Revision: 1.10 $ $Date: 96/03/15 12:52:52 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Winnt;
  6.  
  7. package Win32.Lmmsg is
  8.  
  9.     MSGNAME_NOT_FORWARDED  : constant := 0;                 -- lmmsg.h:107
  10.     MSGNAME_FORWARDED_TO   : constant := 16#4#;             -- lmmsg.h:108
  11.     MSGNAME_FORWARDED_FROM : constant := 16#10#;            -- lmmsg.h:109
  12.  
  13.     type MSG_INFO_0;                                        -- lmmsg.h:89
  14.     type MSG_INFO_1;                                        -- lmmsg.h:93
  15.  
  16.     type PMSG_INFO_0 is access all MSG_INFO_0;              -- lmmsg.h:91
  17.     subtype LPMSG_INFO_0 is PMSG_INFO_0;                    -- lmmsg.h:91
  18.  
  19.     type PMSG_INFO_1 is access all MSG_INFO_1;              -- lmmsg.h:97
  20.     subtype LPMSG_INFO_1 is PMSG_INFO_1;                    -- lmmsg.h:97
  21.  
  22.     type MSG_INFO_0 is                                      -- lmmsg.h:89
  23.         record
  24.             msgi0_name: Win32.Winnt.LPTSTR;                 -- lmmsg.h:90
  25.         end record;
  26.  
  27.     type MSG_INFO_1 is                                      -- lmmsg.h:93
  28.         record
  29.             msgi1_name        : Win32.Winnt.LPTSTR;         -- lmmsg.h:94
  30.             msgi1_forward_flag: Win32.DWORD;                -- lmmsg.h:95
  31.             msgi1_forward     : Win32.Winnt.LPTSTR;         -- lmmsg.h:96
  32.         end record;
  33.  
  34.     function NetMessageNameAdd(
  35.                 servername: Win32.Winnt.LPTSTR;
  36.                 msgname   : Win32.Winnt.LPTSTR)
  37.                return Win32.DWORD;                          -- lmmsg.h:46
  38.  
  39.     function NetMessageNameEnum(
  40.                 servername   : Win32.Winnt.LPTSTR;
  41.                 level        : Win32.DWORD;
  42.                 bufptr       : access Win32.PBYTE;
  43.                 prefmaxlen   : Win32.DWORD;
  44.                 entriesread  : Win32.LPDWORD;
  45.                 totalentries : Win32.LPDWORD;
  46.                 resume_handle: Win32.LPDWORD)
  47.                return Win32.DWORD;                          -- lmmsg.h:52
  48.  
  49.     function NetMessageNameGetInfo(
  50.                 servername: Win32.Winnt.LPTSTR;
  51.                 msgname   : Win32.Winnt.LPTSTR;
  52.                 level     : Win32.DWORD;
  53.                 bufptr    : access Win32.PBYTE)
  54.                return Win32.DWORD;                          -- lmmsg.h:63
  55.      
  56.     function NetMessageNameDel(     
  57.                 servername: Win32.Winnt.LPTSTR;     
  58.                 msgname   : Win32.Winnt.LPTSTR)     
  59.                return Win32.DWORD;                          -- lmmsg.h:71
  60.      
  61.     function NetMessageBufferSend(     
  62.                 servername: Win32.Winnt.LPTSTR;     
  63.                 msgname   : Win32.Winnt.LPTSTR;     
  64.                 fromname  : Win32.Winnt.LPTSTR;     
  65.                 buf       : Win32.LPBYTE;     
  66.                 buflen    : Win32.DWORD)     
  67.                return Win32.DWORD;                          -- lmmsg.h:77
  68.  
  69. private
  70.  
  71.     pragma Convention(C, MSG_INFO_0);                       -- lmmsg.h:89
  72.     pragma Convention(C, MSG_INFO_1);                       -- lmmsg.h:93
  73.  
  74.     pragma Import(Stdcall, NetMessageNameAdd, "NetMessageNameAdd");
  75.                                                             -- lmmsg.h:46
  76.     pragma Import(Stdcall, NetMessageNameEnum, "NetMessageNameEnum");
  77.                                                             -- lmmsg.h:52
  78.     pragma Import(Stdcall, NetMessageNameGetInfo, "NetMessageNameGetInfo");
  79.                                                             -- lmmsg.h:63
  80.     pragma Import(Stdcall, NetMessageNameDel, "NetMessageNameDel");
  81.                                                             -- lmmsg.h:71
  82.     pragma Import(Stdcall, NetMessageBufferSend, "NetMessageBufferSend");
  83.                                                             -- lmmsg.h:77
  84.  
  85. -------------------------------------------------------------------------------
  86. --
  87. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  88. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  89. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  90. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  91. -- the accuracy and the use of this file.  This file may be used, copied,
  92. -- modified and distributed only by licensees of Microsoft Corporation's
  93. -- WIN32 Software Development Kit in accordance with the terms of the 
  94. -- licensee's End-User License Agreement for Microsoft Software for the
  95. -- WIN32 Development Kit.
  96. --
  97. -- Copyright (c) Intermetrics, Inc. 1995
  98. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  99. -- Microsoft is a registered trademark and Windows and Windows NT are
  100. -- trademarks of Microsoft Corporation.
  101. --
  102. -------------------------------------------------------------------------------
  103.  
  104. end Win32.Lmmsg;
  105.