1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function TForm1.send(strTargetWindow, strText: string): boolean;
var
   hTargetWindow: thandle;
   recCopyData: TCopyDataStruct;
   iResult: integer;
begin
   hTargetWindow := findwindow(nil, pchar(strTargetWindow));
   if hTargetWindow <> 0 then
   begin
      recCopyData.dwData := 0;
      recCopyData.cbData := length(strText) + 1;
      recCopyData.lpData := pchar(strText);
      iResult := sendmessage(hTargetWindow, WM_COPYDATA, longint(Handle),
                    longint(@recCopyData));
      Result := (iResult = 0);
   end
   else
      Result := FALSE;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  TForm2 = class(TForm)
  private
     { Private-Deklarationen }
     procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
  public
  end;

procedure TForm2.WMCopyData(var Msg: TWMCopyData);
var
   acText: array[0..1023] of char;
   strReceivedText: string;
begin
   strlcopy(acText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
   strReceivedText := string(acText);
end;