sendmessage problem

[Luckie]

Oder so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  cds: TCopyDataStruct;
  s: PChar;
begin
  s := 'Test-Text';
  cds.dwData := length(s);
  cds.lpData := s;
  SendMessage(Handle, WM_COPYDATA, Handle, Integer(@cds));
end;

procedure TForm1.WMCOPYDATA(var msg: TWMCopyData);
var
  buffer: PChar;
  len: Integer;
begin
  len := msg.CopyDataStruct.dwData;
  GetMem(buffer, len);
  try
  CopyMemory(buffer, msg.CopyDataStruct.lpData, len);
  ShowMessage(String(buffer));
  finally
    FreeMem(Buffer);
  end;
end;

Getestet und funktioniert.