DDE Syntax

For those interested in DDE, with a little trial an error, I think I figured
out what was going on. The TELL word is not supposed to execute commands. We
need a new word or two.

: DDE-EXECUTE ( addr len -- )
   ( a n ) CONV NULL NULL XTYP_EXECUTE
  5000 0 DdeClientTransaction
  DdeFreeDataHandle DROP ;

: DDEX ( addr len -- )
   DDE-INIT DDE-EXECUTE DDE-END ;

This works:

s\" [CreateGroup(DUMMY)]\n" DDEX

This also works:

s\" [DeleteGroup(DUMMY)]\n" DDEX

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe sftalk" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/sftalk -- check them out!
Search the archives! Visit http://www.forth.com/search for details.
Received on Mon Dec 10 2001 - 18:47:31 PST