-- $Source: /home/harp/1/proto/monoBANK/winnt/win32-dde.ads,v $ -- $Revision: 1.14 $ $Date: 96/09/04 08:02:14 $ $Author: mg $ -- See end of file for Copyright (c) information. with Win32.Windef; with Win32.Winnt; package Win32.Dde is WM_DDE_FIRST : constant := 16#3e0#; -- dde.h:14 WM_DDE_INITIATE : constant := 16#3e0#; -- dde.h:15 WM_DDE_TERMINATE : constant := 16#3e1#; -- dde.h:16 WM_DDE_ADVISE : constant := 16#3e2#; -- dde.h:17 WM_DDE_UNADVISE : constant := 16#3e3#; -- dde.h:18 WM_DDE_ACK : constant := 16#3e4#; -- dde.h:19 WM_DDE_DATA : constant := 16#3e5#; -- dde.h:20 WM_DDE_REQUEST : constant := 16#3e6#; -- dde.h:21 WM_DDE_POKE : constant := 16#3e7#; -- dde.h:22 WM_DDE_EXECUTE : constant := 16#3e8#; -- dde.h:23 WM_DDE_LAST : constant := 16#3e8#; -- dde.h:24 type ac_SECURITY_QUALITY_OF_SERVICE_t is access all Win32.Winnt.SECURITY_QUALITY_OF_SERVICE; -- dde.h:136 type DDEACK is -- dde.h:40 record bAppReturnCode: Win32.bits8; -- dde.h:36 reserved : Win32.bits6; -- dde.h:37 fBusy : Win32.bits1; -- dde.h:38 fAck : Win32.bits1; -- dde.h:39 end record; for DDEACK use record bAppReturnCode at 0 range 0..7; -- dde.h:36 reserved at 1 range 0..5; -- dde.h:37 fBusy at 1 range 6..6; -- dde.h:38 fAck at 1 range 7..7; -- dde.h:39 end record; -- pragma pack(DDEACK); type DDEADVISE is -- dde.h:55 record reserved : Win32.bits14; -- dde.h:51 fDeferUpd: Win32.bits1; -- dde.h:52 fAckReq : Win32.bits1; -- dde.h:53 cfFormat : Win32.SHORT; -- dde.h:54 end record; for DDEADVISE use record reserved at 0 range 0..13; -- dde.h:51 fDeferUpd at 1 range 6..6; -- dde.h:52 fAckReq at 1 range 7..7; -- dde.h:53 cfFormat at 2 range 0..15; -- dde.h:54 end record; -- pragma pack(DDEADVISE); type DDEDATA is -- dde.h:75 record unused : Win32.bits12; -- dde.h:68 fResponse: Win32.bits1; -- dde.h:69 fRelease : Win32.bits1; -- dde.h:70 reserved : Win32.bits1; -- dde.h:71 fAckReq : Win32.bits1; -- dde.h:72 cfFormat : Win32.SHORT; -- dde.h:73 Value : Win32.BYTE_Array(0..Win32.ANYSIZE_ARRAY); -- dde.h:74 end record; -- ANYSIZE_ARRAY prevents size clause --for DDEDATA use -- record -- unused at 0 range 0..11; -- dde.h:68 -- fResponse at 1 range 4..4; -- dde.h:69 -- fRelease at 1 range 5..5; -- dde.h:70 -- reserved at 1 range 6..6; -- dde.h:71 -- fAckReq at 1 range 7..7; -- dde.h:72 -- cfFormat at 2 range 0..15; -- dde.h:73 -- Value at 4 range 0..7; -- dde.h:74 -- end record; -- pragma pack(DDEDATA); type DDEPOKE is -- dde.h:96 record unused : Win32.bits13; -- dde.h:88 fRelease : Win32.bits1; -- dde.h:90 fReserved: Win32.bits2; -- dde.h:91 cfFormat : Win32.SHORT; -- dde.h:92 Value : Win32.BYTE_Array(0..Win32.ANYSIZE_ARRAY); -- dde.h:93 end record; -- ANYSIZE_ARRAY prevents size clause --for DDEPOKE use -- record -- unused at 0 range 0..12; -- dde.h:88 -- fRelease at 1 range 5..5; -- dde.h:90 -- fReserved at 1 range 6..7; -- dde.h:91 -- cfFormat at 2 range 0..15; -- dde.h:92 -- Value at 4 range 0..7; -- dde.h:93 -- end record; -- pragma pack(DDEPOKE); type DDELN is -- dde.h:114 record unused : Win32.bits13; -- dde.h:109 fRelease : Win32.bits1; -- dde.h:110 fDeferUpd: Win32.bits1; -- dde.h:111 fAckReq : Win32.bits1; -- dde.h:112 cfFormat : Win32.SHORT; -- dde.h:113 end record; for DDELN use record unused at 0 range 0..12; -- dde.h:109 fRelease at 1 range 5..5; -- dde.h:110 fDeferUpd at 1 range 6..6; -- dde.h:111 fAckReq at 1 range 7..7; -- dde.h:112 cfFormat at 2 range 0..15; end record; -- pragma pack(DDELN); type DDEUP is -- dde.h:124 record unused : Win32.bits12; -- dde.h:117 fAck : Win32.bits1; -- dde.h:118 fRelease : Win32.bits1; -- dde.h:119 fReserved: Win32.bits1; -- dde.h:120 fAckReq : Win32.bits1; -- dde.h:121 cfFormat : Win32.SHORT; -- dde.h:122 rgb : Win32.BYTE_Array(0..Win32.ANYSIZE_ARRAY); -- dde.h:123 end record; -- ANYSIZE_ARRAY prevents size clause --for DDEUP use -- record -- unused at 0 range 0..11; -- dde.h:117 -- fAck at 1 range 4..4; -- dde.h:118 -- fRelease at 1 range 5..5; -- dde.h:119 -- fReserved at 1 range 6..6; -- dde.h:120 -- fAckReq at 1 range 7..7; -- dde.h:121 -- cfFormat at 2 range 0..15; -- dde.h:122 -- rgb at 4 range 0..7; -- dde.h:123 -- end record; -- pragma pack(DDEUP); function DdeSetQualityOfService( hwndClient: Win32.Windef.HWND; pqosNew : ac_SECURITY_QUALITY_OF_SERVICE_t; pqosPrev : Win32.Winnt.PSECURITY_QUALITY_OF_SERVICE) return Win32.BOOL; -- dde.h:133 function ImpersonateDdeClientWindow( hWndClient: Win32.Windef.HWND; hWndServer: Win32.Windef.HWND) return Win32.BOOL; -- dde.h:140 function PackDDElParam(msg : Win32.UINT; uiLo: Win32.UINT; uiHi: Win32.UINT) return Win32.LONG; -- dde.h:147 function UnpackDDElParam(msg : Win32.UINT; lParam: Win32.LONG; puiLo : Win32.PUINT; puiHi : Win32.PUINT) return Win32.BOOL; -- dde.h:148 function FreeDDElParam(msg : Win32.UINT; lParam: Win32.LONG) return Win32.BOOL; -- dde.h:149 function ReuseDDElParam(lParam: Win32.LONG; msgIn : Win32.UINT; msgOut: Win32.UINT; uiLo : Win32.UINT; uiHi : Win32.UINT) return Win32.LONG; -- dde.h:150 private pragma Convention(C, DDEACK); -- dde.h:40 pragma Convention(C, DDEADVISE); -- dde.h:55 pragma Convention(C, DDEDATA); -- dde.h:75 pragma Convention(C, DDEPOKE); -- dde.h:96 pragma Convention(C, DDELN); -- dde.h:114 pragma Convention(C, DDEUP); -- dde.h:124 pragma Import(Stdcall, DdeSetQualityOfService, "DdeSetQualityOfService"); -- dde.h:133 pragma Import(Stdcall, ImpersonateDdeClientWindow,"ImpersonateDdeClientWindow"); -- dde.h:140 pragma Import(Stdcall, PackDDElParam, "PackDDElParam"); -- dde.h:147 pragma Import(Stdcall, UnpackDDElParam, "UnpackDDElParam"); -- dde.h:148 pragma Import(Stdcall, FreeDDElParam, "FreeDDElParam"); -- dde.h:149 pragma Import(Stdcall, ReuseDDElParam, "ReuseDDElParam"); -- dde.h:150 ------------------------------------------------------------------------------- -- -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR -- FITNESS FOR A PARTICULAR PURPOSE. The user assumes the entire risk as to -- the accuracy and the use of this file. This file may be used, copied, -- modified and distributed only by licensees of Microsoft Corporation's -- WIN32 Software Development Kit in accordance with the terms of the -- licensee's End-User License Agreement for Microsoft Software for the -- WIN32 Development Kit. -- -- Copyright (c) Intermetrics, Inc. 1995 -- Portions (c) 1985-1994 Microsoft Corporation with permission. -- Microsoft is a registered trademark and Windows and Windows NT are -- trademarks of Microsoft Corporation. -- ------------------------------------------------------------------------------- end Win32.Dde;