Как пользоватся второй программой

[xGroupers]

Вот я сделал первую программу project1.exe в ней есть кнопка и при нажатие на неё надо както передать комманду во вторую мою программу project2.exe надо передать сообщение ShowMessage('Всё работает!');
как это сделать ? из первой программы передать комманду во вторую ??

[Квэнди]

1. Поиск по форуму.
2. http://pblog.ru/?p=8 возмите из этой статьи нужную вам часть

[Yurk@]

В первой проге по кнопке делаешь:

ShellExecute(0,'Open', Project2.exe','<какой-то ключ>',nil, SW_Normal);

А во второй:

if ParamStr(1)=<укзанный ключ> then
ShowMessage('Все работает!');

[Квэнди]

Сообщение от Yurk@

В первой проге по кнопке делаешь:

ShellExecute(0,'Open', Project2.exe','<какой-то ключ>',nil, SW_Normal);

А во второй:

if ParamStr(1)=<укзанный ключ> then
ShowMessage('Все работает!');

а если вторая давно запущена ?

[st01en]

Во попробовал сам по памяти, без примеров, для меня эт достижение, попровьте если что не так

Программа отправитель:

procedure Send;
var
  wnd: HWND;
  CopyData: TCopyDataStruct;
begin
  wnd := FindWindow('TReceiverForm', nil);
  CopyData.cbData := Length(Edit1.Text) + 1;
  CopyData.lpData := PChar(Edit1.Text);
  if wnd <> 0 then
    SendMessage(wnd, WM_COPYDATA, 0, LParam(@CopyData));
end;

Программа получатель:

type
  TReceiverForm = class(TForm) 
  .........
  public
    procedure ReceiveMessage(var Msg: TMessage); message WM_COPYDATA;
  .........
  end;
  .........
procedure TReceiverForm.ReceiveMessage;
var
  pCopyData: PCopyDataStruct;
begin
  pCopyData := PCopyDataStruct(msg.LParam);
  ShowMessage(pCopyData.lpData);
end;

А вообще я вроде с сообщениями разобрался, вот только никак не могу вникнуть в типы которые постоянно используется, интересно есть что-то что мне поможет?