Wie Objekt eines Programms in anderes Programm einbinden?

[aaaaaaaaaa_10]

Delphi-Quellcode:

   with aCopyData do begin
    dwData := 0;
    cbData := StrLen(pChar(t.Name));
    lpData := pChar(t.Name);
  end;

  SendMessage(FindWindow('TKomMainWnd', nil), WM_COPYDATA, Longint(Handle),
              Longint(@aCopyData));

Also so sende ich und so

Delphi-Quellcode:

procedure TKomMainWnd.WMCopyData(var Msg: TWMCopyData);

begin
  oldi := String(PChar(Msg.CopyDataStruct.lpData));
end;

 procedure test(Sender: TObject);
begin
 ShowMessage(oldi);
end;

empfange ich, aber es erscheint nur eine leere Nachricht...

[Luckie]

Hier ist ein Beispiel: http://www.michael-puff.de/Developer...COPYDATA.shtml

PS: Du solltest dich als Berater bei eine Quizzsendung bewerben. Biite denk beim nächsten mal vor dem Posten genau nach, was du eigentlich willst und versuch dein Anliegen, klar, deutlich und umfassend darzulegen. Und wenn das dann noch in vollständigen Sätzen geschieht, kann man dir eventuell sogar helfen.