[델파이] SendMessage - String 으로 넘기기

- 호출부

SendMessage(호출되는 handle,  WM_SampleCall, AHandle.Handle, DWORD(PChar(ADescription)));

- 수신부

(선언)

procedure _SampleCall(var Message: TMessage); message WM_SampleCall;

(구현)

procedure TfrmMain.SampleCall(var Message: TMessage);

var

  sMsg : PChar;

begin

  sMsg := PChar(Message.lParam);

  Message.Result := 1;

  ShowWait(nil, sMsg);

end;