Как передать строку другому приложению

получатель:

procedure ReceiveMessage (var Msg: TMessage);
message WM_COPYDATA;
...
procedure TFormReceive.ReceiveMessage;
var
  pcd: PCopyDataStruct;
begin
  pcd := PCopyDataStruct(Msg.LParam);
  Caption := PChar(pcd.lpData);
end;

отправитель:

procedure TFormXXX.Button1Click(Sender: TObject);
var
  cd: TCopyDataStruct;
begin
  cd.cbData := Length(Edit1.Text) + 1;
  cd.lpData := PChar(Edit1.Text);
  SendMessage(FindWindow('TFormReceive', nil), WM_COPYDATA, 0, LParam(@cd));
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 058 • TDictionary Custom Sort 6 161 • Fast Watermark Sources 5 955 • 3D Designer 8 824 • Sik Screen Capture 6 298 • Patch Maker 6 711 • Айболит (remote control) 6 702 • ListBox Drag & Drop 5 561 • Доска для игры Реверси 95 856 • Графические эффекты 6 930 • Рисование по маске 6 161 • Перетаскивание изображений 5 090 • Canvas Drawing 5 464 • Рисование Луны 5 178 • Поворот изображения 4 717 • Рисование стержней 3 329 • Paint on Shape 2 571 • Генератор кроссвордов 3 461 • Головоломка Paletto 2 771 • Теорема Монжа об окружностях 3 572 • Пазл Numbrix 2 340 • Заборы и коммивояжеры 3 026 • Игра HIP 1 982 • Игра Go (Го) 1 903 • Симулятор лифта 2 256 • Программа укладки плитки 1 967 • Генератор лабиринта 2 422 • Проверка числового ввода 2 097 • HEX View 2 427 • Физический маятник 2 054