Передача строки между программами

[Kronos913]

Ну тем временем я нашел вот такой вот код

{Отправляет сообщение в другое окно}
Procedure SendToProgram(const Message1: AnsiString; const WindowName1: PChar; const  Id_1: cardinal; const Handle_1:integer=0);
var
  CDS: TCopyDataStruct;
begin
  CDS.dwData := Id_1;
  CDS.cbData := Length(Message1) + 1;
  GetMem(CDS.lpData, CDS.cbData);
  try
    StrPCopy(CDS.lpData, Message1);
    SendMessage(FindWindow(nil, WindowName1),
                  WM_COPYDATA, Handle_1, Integer(@CDS));

  finally
    FreeMem(CDS.lpData, CDS.cbData);
  end;
end;

И код принимающей программы:

TForm1 = class(TForm)
  private
    procedure WMCopyData(var MessageData: TWMCopyData); message WM_COPYDATA;

procedure TForm1.WMCopyData(var MessageData: TWMCopyData);
begin
  //Устанавливаем свойства метки, если заданная команда совпадает
  if MessageData.CopyDataStruct.dwData = 1 then
  begin
    //Устанавливаем текст из полученных данных
    ShowMessageRus( PAnsiChar((MessageData.CopyDataStruct.lpData)) );
    MessageData.Result := 1;
  end
  else
    MessageData.Result := 0;
end;

Тестировал - вроде как то что надо.
Один вопрос - как таким методом отправить что-то в программу если у нее нет окна?
И можно ли отправить если окно не видимо?