Delphi example

{ Send the event message to a Trinc-Prolog engine }
SendMessage( TP_DESTINATION_WINDOW, WM_COPYDATA, Call^._EngineId, Integer(@CDStruct) );