PostMessage auswerten?

[Shakie]

Also, nachdem mir anscheinend keiner beim SetWindowText-Problem (siehe Link) helfen kann, will ich jetzt versuchen, die Kommunikation zwischen zwei Programmen mittels der API-Funktion "PostMessage" aufzubauen. Ich kann zwar so Nachrichten an mein Programm senden, aber wie kann ich die Meldung, die mittels PostMessage gesendet wird, auswerten bzw. empfangen?
Der Code zum Senden sieht bislang so aus:

Option Explicit

Public Const MYMESSAGE = "Meine Nachricht"

Private Declare Function RegisterWindowMessage Lib "user32" Alias _
  "RegisterWindowMessageA" (ByVal lpString As String) As Long
                                       
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
   ByVal lParam As Long) As Long

Public Function NachrichtenNummer() As Long
    Static msg As Long
      If msg = 0 Then
            msg = RegisterWindowMessage(MYMESSAGE)
      End If
     NachrichtenNummer = msg
End Function

Private Sub NachrichtSenden()
    Dim lng_hWnd As Integer
    lng_hWnd = 12345       'Das hWnd der empfänger-Anwendung ist mir bekannt.
    'Jetzt wird die Nachricht an das andere laufende Programm gesendet:
    PostMessage lng_hWnd, NachrichtenNummer, 0, 0
End Sub

Ich hoffe, ihr versteht das Problem!

 

[Shakie]

Hm...Schade, das niemand was weiß. Aber kennt vielleicht jemand irgend eine andere Möglichkeit, eine Kommunikation zwischen zwei Programmen aufzubauen, die auf dem selben Computer laufen?