home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-dde.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  10.8 KB  |  214 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-dde.ads,v $ 
  2. -- $Revision: 1.12 $ $Date: 96/03/15 12:51:50 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Windef;
  6. with Win32.Winnt;
  7.  
  8. package Win32.Dde is
  9.  
  10.     WM_DDE_FIRST           : constant := 16#3e0#;           -- dde.h:14
  11.     WM_DDE_INITIATE        : constant := 16#3e0#;           -- dde.h:15
  12.     WM_DDE_TERMINATE       : constant := 16#3e1#;           -- dde.h:16
  13.     WM_DDE_ADVISE          : constant := 16#3e2#;           -- dde.h:17
  14.     WM_DDE_UNADVISE        : constant := 16#3e3#;           -- dde.h:18
  15.     WM_DDE_ACK             : constant := 16#3e4#;           -- dde.h:19
  16.     WM_DDE_DATA            : constant := 16#3e5#;           -- dde.h:20
  17.     WM_DDE_REQUEST         : constant := 16#3e6#;           -- dde.h:21
  18.     WM_DDE_POKE            : constant := 16#3e7#;           -- dde.h:22
  19.     WM_DDE_EXECUTE         : constant := 16#3e8#;           -- dde.h:23
  20.     WM_DDE_LAST            : constant := 16#3e8#;           -- dde.h:24
  21.  
  22.     type ac_SECURITY_QUALITY_OF_SERVICE_t is access all
  23.         Win32.Winnt.SECURITY_QUALITY_OF_SERVICE;            -- dde.h:136
  24.  
  25.     type DDEACK is                                          -- dde.h:40
  26.         record
  27.             bAppReturnCode: Win32.bits8;                    -- dde.h:36
  28.             reserved      : Win32.bits6;                    -- dde.h:37
  29.             fBusy         : Win32.bits1;                    -- dde.h:38
  30.             fAck          : Win32.bits1;                    -- dde.h:39
  31.         end record;
  32.     for DDEACK use 
  33.         record
  34.             bAppReturnCode at 0 range 0..7;                 -- dde.h:36
  35.             reserved       at 1 range 0..5;                 -- dde.h:37
  36.             fBusy          at 1 range 6..6;                 -- dde.h:38
  37.             fAck           at 1 range 7..7;                 -- dde.h:39
  38.         end record;
  39.     -- pragma pack(DDEACK);
  40.  
  41.     type DDEADVISE is                                       -- dde.h:55
  42.         record
  43.             reserved : Win32.bits14;                        -- dde.h:51
  44.             fDeferUpd: Win32.bits1;                         -- dde.h:52
  45.             fAckReq  : Win32.bits1;                         -- dde.h:53
  46.             cfFormat : Win32.SHORT;                         -- dde.h:54
  47.         end record;
  48.     for DDEADVISE use
  49.         record                               
  50.             reserved  at 0 range 0..13;                     -- dde.h:51
  51.             fDeferUpd at 1 range 6..6;                      -- dde.h:52
  52.             fAckReq   at 1 range 7..7;                      -- dde.h:53
  53.             cfFormat  at 2 range 0..15;                     -- dde.h:54
  54.         end record;
  55.     -- pragma pack(DDEADVISE);
  56.  
  57.     type DDEDATA is                                         -- dde.h:75
  58.         record
  59.             unused   : Win32.bits12;                        -- dde.h:68
  60.             fResponse: Win32.bits1;                         -- dde.h:69
  61.             fRelease : Win32.bits1;                         -- dde.h:70
  62.             reserved : Win32.bits1;                         -- dde.h:71
  63.             fAckReq  : Win32.bits1;                         -- dde.h:72
  64.             cfFormat : Win32.SHORT;                         -- dde.h:73
  65.             Value    : Win32.BYTE_Array(0..Win32.ANYSIZE_ARRAY);
  66.                                                             -- dde.h:74
  67.         end record;
  68.     -- ANYSIZE_ARRAY prevents size clause
  69.     --for DDEDATA use
  70.     --    record
  71.     --        unused    at 0 range 0..11;                     -- dde.h:68
  72.     --        fResponse at 1 range 4..4;                      -- dde.h:69
  73.     --        fRelease  at 1 range 5..5;                      -- dde.h:70
  74.     --        reserved  at 1 range 6..6;                      -- dde.h:71
  75.     --        fAckReq   at 1 range 7..7;                      -- dde.h:72
  76.     --        cfFormat  at 2 range 0..15;                     -- dde.h:73
  77.     --        Value     at 4 range 0..7;                      -- dde.h:74
  78.     --    end record;
  79.     -- pragma pack(DDEDATA);
  80.  
  81.     type DDEPOKE is                                         -- dde.h:96
  82.         record
  83.             unused   : Win32.bits13;                        -- dde.h:88
  84.             fRelease : Win32.bits1;                         -- dde.h:90
  85.             fReserved: Win32.bits2;                         -- dde.h:91
  86.             cfFormat : Win32.SHORT;                         -- dde.h:92
  87.             Value    : Win32.BYTE_Array(0..Win32.ANYSIZE_ARRAY);
  88.                                                             -- dde.h:93
  89.         end record;
  90.     -- ANYSIZE_ARRAY prevents size clause
  91.     --for DDEPOKE use
  92.     --    record
  93.     --        unused    at 0 range 0..12;                     -- dde.h:88
  94.     --        fRelease  at 1 range 5..5;                      -- dde.h:90
  95.     --        fReserved at 1 range 6..7;                      -- dde.h:91
  96.     --        cfFormat  at 2 range 0..15;                     -- dde.h:92
  97.     --        Value     at 4 range 0..7;                      -- dde.h:93
  98.     --    end record;
  99.     -- pragma pack(DDEPOKE);
  100.  
  101.     type DDELN is                                           -- dde.h:114
  102.         record
  103.             unused   : Win32.bits13;                        -- dde.h:109
  104.             fRelease : Win32.bits1;                         -- dde.h:110
  105.             fDeferUpd: Win32.bits1;                         -- dde.h:111
  106.             fAckReq  : Win32.bits1;                         -- dde.h:112
  107.             cfFormat : Win32.SHORT;                         -- dde.h:113
  108.         end record;
  109.     for DDELN use
  110.         record
  111.             unused    at 0 range 0..12;                     -- dde.h:109
  112.             fRelease  at 1 range 5..5;                      -- dde.h:110
  113.             fDeferUpd at 1 range 6..6;                      -- dde.h:111
  114.             fAckReq   at 1 range 7..7;                      -- dde.h:112
  115.             cfFormat  at 2 range 0..15;
  116.         end record;
  117.     -- pragma pack(DDELN);
  118.  
  119.     type DDEUP is                                           -- dde.h:124
  120.         record       
  121.             unused   : Win32.bits12;                        -- dde.h:117
  122.             fAck     : Win32.bits1;                         -- dde.h:118
  123.             fRelease : Win32.bits1;                         -- dde.h:119
  124.             fReserved: Win32.bits1;                         -- dde.h:120
  125.             fAckReq  : Win32.bits1;                         -- dde.h:121
  126.             cfFormat : Win32.SHORT;                         -- dde.h:122
  127.             rgb      : Win32.BYTE_Array(0..Win32.ANYSIZE_ARRAY);
  128.                                                             -- dde.h:123
  129.         end record;
  130.     -- ANYSIZE_ARRAY prevents size clause
  131.     --for DDEUP use
  132.     --    record       
  133.     --        unused    at 0 range 0..11;                     -- dde.h:117
  134.     --        fAck      at 1 range 4..4;                      -- dde.h:118
  135.     --        fRelease  at 1 range 5..5;                      -- dde.h:119
  136.     --        fReserved at 1 range 6..6;                      -- dde.h:120
  137.     --        fAckReq   at 1 range 7..7;                      -- dde.h:121
  138.     --        cfFormat  at 2 range 0..15;                     -- dde.h:122
  139.     --        rgb       at 4 range 0..7;                      -- dde.h:123
  140.     --    end record;
  141.     -- pragma pack(DDEUP);
  142.  
  143.     function DdeSetQualityOfService(
  144.         hwndClient: Win32.Windef.HWND;
  145.         pqosNew   : ac_SECURITY_QUALITY_OF_SERVICE_t;
  146.         pqosPrev  : Win32.Winnt.PSECURITY_QUALITY_OF_SERVICE)
  147.         return Win32.BOOL;                                  -- dde.h:133
  148.  
  149.     function ImpersonateDdeClientWindow(
  150.         hWndClient: Win32.Windef.HWND;
  151.         hWndServer: Win32.Windef.HWND)
  152.         return Win32.BOOL;                                  -- dde.h:140
  153.  
  154.     function PackDDElParam(msg : Win32.UINT;
  155.                            uiLo: Win32.UINT;
  156.                            uiHi: Win32.UINT)
  157.                                  return Win32.LONG;         -- dde.h:147
  158.  
  159.     function UnpackDDElParam(msg   : Win32.UINT;
  160.                              lParam: Win32.LONG;
  161.                              puiLo : Win32.PUINT;
  162.                              puiHi : Win32.PUINT)
  163.                                      return Win32.BOOL;     -- dde.h:148
  164.  
  165.     function FreeDDElParam(msg   : Win32.UINT;
  166.                            lParam: Win32.LONG)
  167.                                    return Win32.BOOL;       -- dde.h:149
  168.  
  169.     function ReuseDDElParam(lParam: Win32.LONG;
  170.                             msgIn : Win32.UINT;
  171.                             msgOut: Win32.UINT;
  172.                             uiLo  : Win32.UINT;
  173.                             uiHi  : Win32.UINT)
  174.                                     return Win32.LONG;      -- dde.h:150
  175.  
  176. private
  177.  
  178.     pragma Convention(C, DDEACK);                           -- dde.h:40
  179.     pragma Convention(C, DDEADVISE);                        -- dde.h:55
  180.     pragma Convention(C, DDEDATA);                          -- dde.h:75
  181.     pragma Convention(C, DDEPOKE);                          -- dde.h:96
  182.     pragma Convention(C, DDELN);                            -- dde.h:114
  183.     pragma Convention(C, DDEUP);                            -- dde.h:124
  184.  
  185.     pragma Import(Stdcall, DdeSetQualityOfService, "DdeSetQualityOfService");
  186.                                                             -- dde.h:133
  187.     pragma Import(Stdcall, ImpersonateDdeClientWindow,"ImpersonateDdeClientWindow");
  188.                                                             -- dde.h:140
  189.     pragma Import(Stdcall, PackDDElParam, "PackDDElParam");       -- dde.h:147
  190.     pragma Import(Stdcall, UnpackDDElParam, "UnpackDDElParam");   -- dde.h:148
  191.     pragma Import(Stdcall, FreeDDElParam, "FreeDDElParam");       -- dde.h:149
  192.     pragma Import(Stdcall, ReuseDDElParam, "ReuseDDElParam");     -- dde.h:150
  193.  
  194. -------------------------------------------------------------------------------
  195. --
  196. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  197. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  198. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  199. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  200. -- the accuracy and the use of this file.  This file may be used, copied,
  201. -- modified and distributed only by licensees of Microsoft Corporation's
  202. -- WIN32 Software Development Kit in accordance with the terms of the 
  203. -- licensee's End-User License Agreement for Microsoft Software for the
  204. -- WIN32 Development Kit.
  205. --
  206. -- Copyright (c) Intermetrics, Inc. 1995
  207. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  208. -- Microsoft is a registered trademark and Windows and Windows NT are
  209. -- trademarks of Microsoft Corporation.
  210. --
  211. -------------------------------------------------------------------------------
  212.  
  213. end Win32.Dde;
  214.