[델파이] SendMessage에서 문자열 보내는 방법

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button3: TButton;
    Edit1: TEdit;
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

    procedure WMRecvData(var Msg: TWMCopyData); message WM_USER + 100;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
var
  sMsg : string;
  cds : TCopyDataStruct;
begin
  sMsg := edit1.Text;

  cds.dwData := 0; // Identify the message contents
  cds.cbData := 1 + Length(sMsg);
  cds.lpData := PChar(sMsg);

  SendMessage(Handle, WM_USER + 100, 0, Integer(@cds));
end;

 

procedure TForm1.WMRecvData(var Msg: TWMCopyData);
var
  sMsg : string;
begin
  sMsg := PChar(Msg.CopyDataStruct.lpData);

  self.Caption := sMsg;
end;

end.


-----------------------

이젠 귀찮으니까 이렇게 올리네 -.-;;
그래도 나중 되면 잊어버리니까 이렇게라도 써두면
잊어버리면 이거보면 생각나겠지.
아마도...