채팅 기능입니다.
edit2.text <<가 채팅전송을 받을타겟입니다
아래의 코드는
타켓1 <<요렇게 쓰면 "타켓1" 이라는사람이 채팅을받는데요.
타켓1,타켓2,타켓3 <<이렇게쓰면 "타켓1" "타켓2" "타켓3"이 받도록 하고싶은데 어떤식으로 접근해야할까요?
procedure TForm1.Button1Click(Sender: TObject);
var Handle1: HWND;
begin // 클레스네임 윈도우캡션 타겟지정
Handle1 := FindWindowEx(FindWindow('#32770', Pchar(edit2.text)), 0, 'RichEdit20W', nil);
SendMessage(Handle1, WM_SETTEXT, 0, LParam(Pchar(edit1.Text))); //내용전송
PostMessage(Handle1 ,WM_KEYDOWN ,VK_RETURN, 0) ; // 엔터 전달
end;
|