EnableExplicit

Define handle
Define Message.s
Global MyMessage.l = RegisterWindowMessage_("MyOwnMessage")
Define cd.COPYDATASTRUCT

handle=FindWindow_(#Null,"ProgrammXYZ")
If handle
  
  Message.s="Hallo, dies ist eine Nachricht, die gesendet wurde."
  cd\dwData = 0
  cd\cbData = (Len(Message) + 1) * SizeOf(Character)
  cd\lpData = @Message
  
  SendMessage_(handle,#WM_COPYDATA,1,cd)
Else
  MessageRequester("","Programm nicht gefunden.",0)
EndIf