The function start-dde-server creates an instance of a server of the class specified by name which then starts accepting transactions. If successful the function returns the server, otherwise nil is returned.
You need to call start-dde-server in a thread that will process Windows messages. This can either be done by using capi:execute-with-interface to run it in the thread of an application's main window (if there is one) or by running it in a dedicated thread as in the example. DDE callbacks will happen in this thread.
(mp:process-run-function
"DDE Server"
()
#'(lambda ()
(win32:start-dde-server 'lispworks-dde-server)
(loop
(mp:wait-processing-events
nil
:wait-reason "DDE Request Loop"))))
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4