Jak przesłać łańcuch do innego programu

Czasami istnieje potrzeba, żeby wysłać do innej aplikacji np łańcuch, którego nie możemy sobie zrzutować na Cardinal i wysłać komunikatem, lecz istnieje na to sposób.

Służy do tego komunikat WM_COPYDATA. Używamy go deklarując strukture TCopyDataStruct, która posiada trzy pola - dwData, cbData i lpData. W lpData podamy wskaźnik do naszych danych a cbData i dwData możemy wykorzystać jak chcemy.

Zacznijmy od programu, który wyśle tekst. Wrzuc na forme TButton i TEdit, nazwy standardowe. OnClick buttona:

procedure TForm1.Button1Click(Sender: TObject);
var
  aCopyData: TCopyDataStruct;
  s: ShortString;
begin
  s := Edit1.Text;
  aCopyData.lpData := @s;
  SendMessage(FindWindow(nil, 'client'), WM_COPYDATA, 0, Longint(@aCopyData));
end;

Teraz program, który to odbierze. Tym razem postaw tylko TEdit ze standardową nazwą a Caption okna ustaw jako 'client'. W definicji formy dopisujemy prototyp funkcji odbierającej dane, wygląda on podobnie jak zwykła funkcja obsługi komunikatu, jednak zamiast parametru TMessage tworzymy TWMCopyData, całość powinna wyglądać tak:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure CopyData(var Msg: TWMCopyData); message WM_COPYDATA;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Teraz ciało funkcji:

procedure TForm1.CopyData(var Msg: TWMCopyData);
begin
  Edit1.Text := ShortString(Msg.CopyDataStruct.lpData^);
end;

Zamiast ShortString możemy wysyłać co chcemy, nawet dynamiczne dane (np PChar), w tym wypadku należy razem z komunikatem wysłać długość danych.