다른 어플리케이션에서는 데이터를 SendMessage를 통해서

보내줍니다. 한쪽 어플리케이션에서는 이의 메세지를 받아서

ListBox에 add고저 합니다.



제가 구현한 대충의 코드는 이렇습니다.



procedure TForm1.FormCreate(Sender: TObject);

var

hook : TWindowHook;

begin

hook := TestMsgHook;

Application.HookMainWindow(hook);

end;



function TForm1.TestMsgHook(var Message: TMessage): Boolean;

var

rtSend : integer;

begin



if Message.Msg = WM_USER then

begin

rtSend := SendMessage(ListBox1.Handle,

LB_ADDSTRING, Message.WParam, Message.LParam)

end;



result := true;

end;





그런데 리스트박스에 Message.LParam이 포인트하는 내용이 add되지 않습니다.

어떻게 해야되는지 알고 싶습니다.