TStringList를 사용해보세요
procedure TForm1.Button1Click(Sender: TObject);
var
Handle1: HWND;
Lst : TStringList;
i : Integer;
begin // 클레스네임 윈도우캡션 타겟지정
Lst := TStringList.Create;
Lst.StrictDelimiter := True;
Lst.CommaText := edit2.text;
for i := 0 to Lst.Count-1 do
Handle1 := FindWindowEx(FindWindow('#32770', Pchar(Lst.Strings[i])), 0, 'RichEdit20W', nil);
if Handle1 not nil then
SendMessage(Handle1, WM_SETTEXT, 0, LParam(Pchar(edit1.Text))); //내용전송
PostMessage(Handle1 ,WM_KEYDOWN ,VK_RETURN, 0) ; // 엔터 전달
end;
Lst.Free;
end;
후인이 님이 쓰신 글 :
: 카xx톡 의 채팅자동전송 기능입니다.
:
: 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;
: