Не получается принять сообщение (SendMessage)

[crazygoldbullet]

Программу компилирую в Лазарусе. В качестве обучалки использую эту статью.
В моей программе не происходит вызов WMCopyData. Пожалуйста, помогите решить эту проблему.

Вот мой код:

Sender (здесь всё работает нормально, так как Receiver, скомпилированный автором той статьи, принимает сообщение от моего Sender'a):

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,FileUtil,Buttons;
type
  { TForm1 }
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    StringEdit: TEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
var
  Form1: TForm1;
 const
  CMD_SETLABELTEXT = 1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  CDS: TCopyDataStruct;
begin
  //Устанавливаем тип команды
  CDS.dwData := CMD_SETLABELTEXT;
  //Устанавливаем длину передаваемых данных
  CDS.cbData := Length(StringEdit.Text) + 1;
  //Выделяем память буфера для передачи данных
  GetMem(CDS.lpData, CDS.cbData);
  try
    //Копируем данные в буфер
    StrPCopy(CDS.lpData, AnsiString(StringEdit.Text));
    //Отсылаем сообщение в окно с заголовком StringReceiver
    SendMessage(FindWindow(nil, 'StringReceiver'),
                  WM_COPYDATA, Handle, Integer(@CDS));
  finally
    //Высвобождаем буфер
    FreeMem(CDS.lpData, CDS.cbData);
  end;
end;
end.

Receiver (не происходит вызов WMCopyData):

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,FileUtil,Buttons;
type
  TWMCopyData = packed record
    Msg: Cardinal;
    From: HWND;
    CopyDataStruct: PCopyDataStruct;
    Result: Longint;
  end;
  { TForm1 }
  TForm1 = class(TForm)
    Label1: TLabel;
  private
    { private declarations }
	procedure WMCopyData(var MessageData: TWMCopyData); message WM_COPYDATA;
  public
    { public declarations }
  end;
var
  Form1: TForm1;
 const
  CMD_SETLABELTEXT = 1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.WMCopyData(var MessageData: TWMCopyData);
begin
  //Устанавливаем свойства метки, если заданная команда совпадает
  if MessageData.CopyDataStruct.dwData = CMD_SETLABELTEXT then
  begin
    //Устанавливаем текст из полученных данных
    Label1.Caption := PAnsiChar((MessageData.CopyDataStruct.lpData));
    MessageData.Result := 1;
  end
  else
    MessageData.Result := 0;
end;
end.

[Stilet]

FindWindow(nil, 'StringReceiver')

Ты уверен что она возвращает правильный хендл?

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  CDS: TCopyDataStruct; h:HWND;
begin
  //Устанавливаем тип команды
  CDS.dwData := CMD_SETLABELTEXT;
  //Устанавливаем длину передаваемых данных
  CDS.cbData := Length(StringEdit.Text) + 1;
  //Выделяем память буфера для передачи данных
  GetMem(CDS.lpData, CDS.cbData);
  try
    //Копируем данные в буфер
    StrPCopy(CDS.lpData, AnsiString(StringEdit.Text));
    //Отсылаем сообщение в окно с заголовком StringReceiver
    h:=FindWindow(nil, 'StringReceiver');
    if IsWindow(h) then begin
      if not SendMessage(h, WM_COPYDATA, Handle, Integer(@CDS)) 
      then RaiseLastOSError;
    end else ShowMessage('Хендл не найден');
  finally
    //Высвобождаем буфер
    FreeMem(CDS.lpData, CDS.cbData);
  end;
end;

И теперь анализируй ошибки если они будут.

[crazygoldbullet]

Stilet, проблема была в приёмнике, а не в отправителе... Не происходил вызов WMCopyData...
Мне помогли решить эту проблему, так что тему можно закрыть

[Stilet]

Ок. Но все равно я бы проверками не гнушался. На опыте почувствовал необходимость.