modules/dde.lisp

   1 (cl:in-package w32apimod)
   2
   3 (define-w32api-module dde :dde)
   4
   5 (cl:in-package cl-w32api.module.dde)
   6
   7
   8 (defconstant-exported WM_DDE_FIRST #x03E0)
   9
  10 (defconstant-exported WM_DDE_INITIATE #x03E0)
  11
  12 (defconstant-exported WM_DDE_TERMINATE (cl:+ #x03E0 1))
  13
  14 (defconstant-exported WM_DDE_ADVISE (cl:+ #x03E0 2))
  15
  16 (defconstant-exported WM_DDE_UNADVISE (cl:+ #x03E0 3))
  17
  18 (defconstant-exported WM_DDE_ACK (cl:+ #x03E0 4))
  19
  20 (defconstant-exported WM_DDE_DATA (cl:+ #x03E0 5))
  21
  22 (defconstant-exported WM_DDE_REQUEST (cl:+ #x03E0 6))
  23
  24 (defconstant-exported WM_DDE_POKE (cl:+ #x03E0 7))
  25
  26 (defconstant-exported WM_DDE_EXECUTE (cl:+ #x03E0 8))
  27
  28 (defconstant-exported WM_DDE_LAST (cl:+ #x03E0 8))
  29
  30 (defcstructex-exported DDEACK
  31         (bAppReturnCode :unsigned-short)
  32         (reserved :unsigned-short)
  33         (fBusy :unsigned-short)
  34         (fAck :unsigned-short))
  35
  36 (defcstructex-exported DDEADVISE
  37         (reserved :unsigned-short)
  38         (fDeferUpd :unsigned-short)
  39         (fAckReq :unsigned-short)
  40         (cfFormat :short))
  41
  42 (defcstructex-exported DDEDATA
  43         (unused :unsigned-short)
  44         (fResponse :unsigned-short)
  45         (fRelease :unsigned-short)
  46         (reserved :unsigned-short)
  47         (fAckReq :unsigned-short)
  48         (cfFormat :short)
  49         (Value :pointer))
  50
  51 (defcstructex-exported DDEPOKE
  52         (unused :unsigned-short)
  53         (fRelease :unsigned-short)
  54         (fReserved :unsigned-short)
  55         (cfFormat :short)
  56         (Value :pointer))
  57
  58 (defcstructex-exported DDELN
  59         (unused :unsigned-short)
  60         (fRelease :unsigned-short)
  61         (fDeferUpd :unsigned-short)
  62         (fAckReq :unsigned-short)
  63         (cfFormat :short))
  64
  65 (defcstructex-exported DDEUP
  66         (unused :unsigned-short)
  67         (fAck :unsigned-short)
  68         (fRelease :unsigned-short)
  69         (fReserved :unsigned-short)
  70         (fAckReq :unsigned-short)
  71         (cfFormat :short)
  72         (rgb :pointer))
  73
  74 (defcfunex-exported ("DdeSetQualityOfService" DdeSetQualityOfService :convention :stdcall) :int
  75   (arg0 :pointer)
  76   (arg1 :pointer)
  77   (arg2 :pointer))
  78
  79 (defcfunex-exported ("ImpersonateDdeClientWindow" ImpersonateDdeClientWindow :convention :stdcall) :int
  80   (arg0 :pointer)
  81   (arg1 :pointer))
  82
  83 (defcfunex-exported ("PackDDElParam" PackDDElParam :convention :stdcall) :int32
  84   (arg0 :unsigned-int)
  85   (arg1 :unsigned-int)
  86   (arg2 :unsigned-int))
  87
  88 (defcfunex-exported ("UnpackDDElParam" UnpackDDElParam :convention :stdcall) :int
  89   (arg0 :unsigned-int)
  90   (arg1 :int32)
  91   (arg2 :pointer)
  92   (arg3 :pointer))
  93
  94 (defcfunex-exported ("FreeDDElParam" FreeDDElParam :convention :stdcall) :int
  95   (arg0 :unsigned-int)
  96   (arg1 :int32))
  97
  98 (defcfunex-exported ("ReuseDDElParam" ReuseDDElParam :convention :stdcall) :int32
  99   (arg0 :int32)
 100   (arg1 :unsigned-int)
 101   (arg2 :unsigned-int)
 102   (arg3 :unsigned-int)
 103   (arg4 :unsigned-int))
 104
 105 (defconstant-exported CP_WINANSI 1004)
 106
 107 (defconstant-exported CP_WINUNICODE 1200)
 108
 109 (defconstant-exported XTYPF_NOBLOCK 2)
 110
 111 (defconstant-exported XTYPF_NODATA 4)
 112
 113 (defconstant-exported XTYPF_ACKREQ 8)
 114
 115 (defconstant-exported XCLASS_MASK #xFC00)
 116
 117 (defconstant-exported XCLASS_BOOL #x1000)
 118
 119 (defconstant-exported XCLASS_DATA #x2000)
 120
 121 (defconstant-exported XCLASS_FLAGS #x4000)
 122
 123 (defconstant-exported XCLASS_NOTIFICATION #x8000)
 124
 125 (defconstant-exported XST_NULL 0)
 126
 127 (defconstant-exported XST_INCOMPLETE 1)
 128
 129 (defconstant-exported XST_CONNECTED 2)
 130
 131 (defconstant-exported XST_INIT1 3)
 132
 133 (defconstant-exported XST_INIT2 4)
 134
 135 (defconstant-exported XST_REQSENT 5)
 136
 137 (defconstant-exported XST_DATARCVD 6)
 138
 139 (defconstant-exported XST_POKESENT 7)
 140
 141 (defconstant-exported XST_POKEACKRCVD 8)
 142
 143 (defconstant-exported XST_EXECSENT 9)
 144
 145 (defconstant-exported XST_EXECACKRCVD 10)
 146
 147 (defconstant-exported XST_ADVSENT 11)
 148
 149 (defconstant-exported XST_UNADVSENT 12)
 150
 151 (defconstant-exported XST_ADVACKRCVD 13)
 152
 153 (defconstant-exported XST_UNADVACKRCVD 14)
 154
 155 (defconstant-exported XST_ADVDATASENT 15)
 156
 157 (defconstant-exported XST_ADVDATAACKRCVD 16)
 158
 159 (defconstant-exported XTYP_ERROR (cl:logior #x8000 2))
 160
 161 (defconstant-exported XTYP_ADVDATA (cl:logior 16 #x4000))
 162
 163 (defconstant-exported XTYP_ADVREQ (cl:logior 32 #x2000 2))
 164
 165 (defconstant-exported XTYP_ADVSTART (cl:logior #x30 #x1000))
 166
 167 (defconstant-exported XTYP_ADVSTOP (cl:logior #x0040 #x8000))
 168
 169 (defconstant-exported XTYP_EXECUTE (cl:logior #x0050 #x4000))
 170
 171 (defconstant-exported XTYP_CONNECT (cl:logior #x0060 #x1000 2))
 172
 173 (defconstant-exported XTYP_CONNECT_CONFIRM (cl:logior #x0070 #x8000 2))
 174
 175 (defconstant-exported XTYP_XACT_COMPLETE (cl:logior #x0080 #x8000))
 176
 177 (defconstant-exported XTYP_POKE (cl:logior #x0090 #x4000))
 178
 179 (defconstant-exported XTYP_REGISTER (cl:logior #x00A0 #x8000 2))
 180
 181 (defconstant-exported XTYP_REQUEST (cl:logior #x00B0 #x2000))
 182
 183 (defconstant-exported XTYP_DISCONNECT (cl:logior #x00C0 #x8000 2))
 184
 185 (defconstant-exported XTYP_UNREGISTER (cl:logior #x00D0 #x8000 2))
 186
 187 (defconstant-exported XTYP_WILDCONNECT (cl:logior #x00E0 #x2000 2))
 188
 189 (defconstant-exported XTYP_MASK #xF0)
 190
 191 (defconstant-exported XTYP_SHIFT 4)
 192
 193 (defconstant-exported TIMEOUT_ASYNC #xFFFFFFFF)
 194
 195 (defconstant-exported QID_SYNC #xFFFFFFFF)
 196
 197 (defconstant-exported ST_CONNECTED 1)
 198
 199 (defconstant-exported ST_ADVISE 2)
 200
 201 (defconstant-exported ST_ISLOCAL 4)
 202
 203 (defconstant-exported ST_BLOCKED 8)
 204
 205 (defconstant-exported ST_CLIENT 16)
 206
 207 (defconstant-exported ST_TERMINATED 32)
 208
 209 (defconstant-exported ST_INLIST 64)
 210
 211 (defconstant-exported ST_BLOCKNEXT 128)
 212
 213 (defconstant-exported ST_ISSELF 256)
 214
 215 (defconstant-exported CADV_LATEACK #xFFFF)
 216
 217 (defconstant-exported DMLERR_NO_ERROR 0)
 218
 219 (defconstant-exported DMLERR_FIRST #x4000)
 220
 221 (defconstant-exported DMLERR_ADVACKTIMEOUT #x4000)
 222
 223 (defconstant-exported DMLERR_BUSY #x4001)
 224
 225 (defconstant-exported DMLERR_DATAACKTIMEOUT #x4002)
 226
 227 (defconstant-exported DMLERR_DLL_NOT_INITIALIZED #x4003)
 228
 229 (defconstant-exported DMLERR_DLL_USAGE #x4004)
 230
 231 (defconstant-exported DMLERR_EXECACKTIMEOUT #x4005)
 232
 233 (defconstant-exported DMLERR_INVALIDPARAMETER #x4006)
 234
 235 (defconstant-exported DMLERR_LOW_MEMORY #x4007)
 236
 237 (defconstant-exported DMLERR_MEMORY_ERROR #x4008)
 238
 239 (defconstant-exported DMLERR_NOTPROCESSED #x4009)
 240
 241 (defconstant-exported DMLERR_NO_CONV_ESTABLISHED #x400a)
 242
 243 (defconstant-exported DMLERR_POKEACKTIMEOUT #x400b)
 244
 245 (defconstant-exported DMLERR_POSTMSG_FAILED #x400c)
 246
 247 (defconstant-exported DMLERR_REENTRANCY #x400d)
 248
 249 (defconstant-exported DMLERR_SERVER_DIED #x400e)
 250
 251 (defconstant-exported DMLERR_SYS_ERROR #x400f)
 252
 253 (defconstant-exported DMLERR_UNADVACKTIMEOUT #x4010)
 254
 255 (defconstant-exported DMLERR_UNFOUND_QUEUE_ID #x4011)
 256
 257 (defconstant-exported DMLERR_LAST #x4011)
 258
 259 (defconstant-exported DDE_FACK #x8000)
 260
 261 (defconstant-exported DDE_FBUSY #x4000)
 262
 263 (defconstant-exported DDE_FDEFERUPD #x4000)
 264
 265 (defconstant-exported DDE_FACKREQ #x8000)
 266
 267 (defconstant-exported DDE_FRELEASE #x2000)
 268
 269 (defconstant-exported DDE_FREQUESTED #x1000)
 270
 271 (defconstant-exported DDE_FAPPSTATUS #x00ff)
 272
 273 (defconstant-exported DDE_FNOTPROCESSED 0)
 274
 275 ; (defconstant-exported DDE_FACKRESERVED (cl:logior ~(0x8000 #x4000 #x00ff)))
 276 (defconstant-exported DDE_FACKRESERVED (cl:lognot (cl:logior DDE_FACK DDE_FBUSY DDE_FAPPSTATUS)))
 277
 278 ; (defconstant-exported DDE_FADVRESERVED (cl:logior ~(0x8000 #x4000)))
 279 (defconstant-exported DDE_FADVRESERVED (cl:lognot (cl:logior DDE_FACKREQ DDE_FDEFERUPD)))
 280
 281 ; (defconstant-exported DDE_FDATRESERVED (cl:logior ~(0x8000 #x2000 #x1000)))
 282 (defconstant-exported DDE_FDATRESERVED (cl:lognot (cl:logior DDE_FACKREQ DDE_FRELEASE DDE_FREQUESTED)))
 283
 284 ; (defconstant-exported DDE_FPOKRESERVED ~0x2000)
 285 (defconstant-exported DDE_FPOKRESERVED (cl:lognot DDE_FRELEASE))
 286
 287 (defconstant-exported MSGF_DDEMGR #x8001)
 288
 289 (defconstant-exported CBF_FAIL_SELFCONNECTIONS #x1000)
 290
 291 (defconstant-exported CBF_FAIL_CONNECTIONS #x2000)
 292
 293 (defconstant-exported CBF_FAIL_ADVISES #x4000)
 294
 295 (defconstant-exported CBF_FAIL_EXECUTES #x8000)
 296
 297 (defconstant-exported CBF_FAIL_POKES #x10000)
 298
 299 (defconstant-exported CBF_FAIL_REQUESTS #x20000)
 300
 301 (defconstant-exported CBF_FAIL_ALLSVRXACTIONS #x3f000)
 302
 303 (defconstant-exported CBF_SKIP_CONNECT_CONFIRMS #x40000)
 304
 305 (defconstant-exported CBF_SKIP_REGISTRATIONS #x80000)
 306
 307 (defconstant-exported CBF_SKIP_UNREGISTRATIONS #x100000)
 308
 309 (defconstant-exported CBF_SKIP_DISCONNECTS #x200000)
 310
 311 (defconstant-exported CBF_SKIP_ALLNOTIFICATIONS #x3c0000)
 312
 313 (defconstant-exported APPCMD_CLIENTONLY #x10)
 314
 315 (defconstant-exported APPCMD_FILTERINITS #x20)
 316
 317 (defconstant-exported APPCMD_MASK #xFF0)
 318
 319 (defconstant-exported APPCLASS_STANDARD 0)
 320
 321 (defconstant-exported APPCLASS_MASK #xF)
 322
 323 (defconstant-exported EC_ENABLEALL 0)
 324
 325 (defconstant-exported EC_ENABLEONE 128)
 326
 327 (defconstant-exported EC_DISABLE 8)
 328
 329 (defconstant-exported EC_QUERYWAITING 2)
 330
 331 (defconstant-exported DNS_REGISTER 1)
 332
 333 (defconstant-exported DNS_UNREGISTER 2)
 334
 335 (defconstant-exported DNS_FILTERON 4)
 336
 337 (defconstant-exported DNS_FILTEROFF 8)
 338
 339 (defconstant-exported HDATA_APPOWNED 1)
 340
 341 (defconstant-exported MAX_MONITORS 4)
 342
 343 (defconstant-exported APPCLASS_MONITOR 1)
 344
 345 (defconstant-exported XTYP_MONITOR (cl:logior #x8000 2 #xF0))
 346
 347 (defconstant-exported MF_HSZ_INFO #x1000000)
 348
 349 (defconstant-exported MF_SENDMSGS #x2000000)
 350
 351 (defconstant-exported MF_POSTMSGS #x4000000)
 352
 353 (defconstant-exported MF_CALLBACKS #x8000000)
 354
 355 (defconstant-exported MF_ERRORS #x10000000)
 356
 357 (defconstant-exported MF_LINKS #x20000000)
 358
 359 (defconstant-exported MF_CONV #x40000000)
 360
 361 (defconstant-exported MF_MASK #xFF000000)
 362
 363 (defconstant-exported MH_CREATE 1)
 364
 365 (defconstant-exported MH_KEEP 2)
 366
 367 (defconstant-exported MH_DELETE 3)
 368
 369 (defconstant-exported MH_CLEANUP 4)
 370
 371 (defcstructex-exported HCONVLIST__
 372         (i :int))
 373
 374
 375
 376 (defcstructex-exported HCONV__
 377         (i :int))
 378
 379
 380
 381 (defcstructex-exported HSZ__
 382         (i :int))
 383
 384
 385
 386 (defcstructex-exported HDDEDATA__
 387         (i :int))
 388
 389
 390
 391
 392
 393
 394
 395 (defcstructex-exported HSZPAIR
 396         (hszSvc :pointer)
 397         (hszTopic :pointer))
 398
 399
 400
 401
 402
 403 (defcstructex-exported CONVCONTEXT
 404         (cb :unsigned-int)
 405         (wFlags :unsigned-int)
 406         (wCountryID :unsigned-int)
 407         (iCodePage :int)
 408         (dwLangID :unsigned-long)
 409         (dwSecurity :unsigned-long)
 410         (qos SECURITY_QUALITY_OF_SERVICE))
 411
 412
 413
 414
 415
 416 (defcstructex-exported CONVINFO
 417         (cb :unsigned-long)
 418         (hUser :unsigned-long)
 419         (hConvPartner :pointer)
 420         (hszSvcPartner :pointer)
 421         (hszServiceReq :pointer)
 422         (hszTopic :pointer)
 423         (hszItem :pointer)
 424         (wFmt :unsigned-int)
 425         (wType :unsigned-int)
 426         (wStatus :unsigned-int)
 427         (wConvst :unsigned-int)
 428         (wLastError :unsigned-int)
 429         (hConvList :pointer)
 430         (ConvCtxt CONVCONTEXT)
 431         (hwnd :pointer)
 432         (hwndPartner :pointer))
 433
 434
 435
 436
 437
 438 (defcstructex-exported DDEML_MSG_HOOK_DATA
 439         (uiLo :unsigned-int)
 440         (uiHi :unsigned-int)
 441         (cbData :unsigned-long)
 442         (Data :pointer))
 443
 444
 445
 446 (defcstructex-exported MONHSZSTRUCT
 447         (cb :unsigned-int)
 448         (fsAction :int)
 449         (dwTime :unsigned-long)
 450         (hsz :pointer)
 451         (hTask :pointer)
 452         (str :pointer))
 453
 454
 455
 456
 457
 458 (defcstructex-exported MONLINKSTRUCT
 459         (cb :unsigned-int)
 460         (dwTime :unsigned-long)
 461         (hTask :pointer)
 462         (fEstablished :int)
 463         (fNoData :int)
 464         (hszSvc :pointer)
 465         (hszTopic :pointer)
 466         (hszItem :pointer)
 467         (wFmt :unsigned-int)
 468         (fServer :int)
 469         (hConvServer :pointer)
 470         (hConvClient :pointer))
 471
 472
 473
 474
 475
 476 (defcstructex-exported MONCONVSTRUCT
 477         (cb :unsigned-int)
 478         (fConnect :int)
 479         (dwTime :unsigned-long)
 480         (hTask :pointer)
 481         (hszSvc :pointer)
 482         (hszTopic :pointer)
 483         (hConvClient :pointer)
 484         (hConvServer :pointer))
 485
 486
 487
 488
 489
 490 (defcstructex-exported MONCBSTRUCT
 491         (cb :unsigned-int)
 492         (dwTime :unsigned-long)
 493         (hTask :pointer)
 494         (dwRet :unsigned-long)
 495         (wType :unsigned-int)
 496         (wFmt :unsigned-int)
 497         (hConv :pointer)
 498         (hsz1 :pointer)
 499         (hsz2 :pointer)
 500         (hData :pointer)
 501         (dwData1 :unsigned-long)
 502         (dwData2 :unsigned-long)
 503         (cc CONVCONTEXT)
 504         (cbData :unsigned-long)
 505         (Data :pointer))
 506
 507
 508
 509
 510
 511 (defcstructex-exported MONERRSTRUCT
 512         (cb :unsigned-int)
 513         (wLastError :unsigned-int)
 514         (dwTime :unsigned-long)
 515         (hTask :pointer))
 516
 517
 518
 519
 520
 521 (defcstructex-exported MONMSGSTRUCT
 522         (cb :unsigned-int)
 523         (hwndTo :pointer)
 524         (dwTime :unsigned-long)
 525         (hTask :pointer)
 526         (wMsg :unsigned-int)
 527         (wParam :unsigned-int)
 528         (lParam :int32)
 529         (dmhd DDEML_MSG_HOOK_DATA))
 530
 531
 532
 533
 534
 535 (defconstant-exported SZDDESYS_TOPIC "System")
 536
 537 (defconstant-exported SZDDESYS_ITEM_TOPICS "Topics")
 538
 539 (defconstant-exported SZDDESYS_ITEM_SYSITEMS "SysItems")
 540
 541 (defconstant-exported SZDDESYS_ITEM_RTNMSG "ReturnMessage")
 542
 543 (defconstant-exported SZDDESYS_ITEM_STATUS "Status")
 544
 545 (defconstant-exported SZDDESYS_ITEM_FORMATS "Formats")
 546
 547 (defconstant-exported SZDDESYS_ITEM_HELP "Help")
 548
 549 (defconstant-exported SZDDE_ITEM_ITEMLIST "TopicItemList")