Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[16092] Re:목록 다양화 질문입니다.!
정성훈.해미 [sage5nor] 663 읽음    2020-04-03 12:01
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;
:

+ -

관련 글 리스트
16091 목록 다양화 질문입니다.! 후인이 560 2020/04/03
16092     Re:목록 다양화 질문입니다.! 정성훈.해미 663 2020/04/03
16096         Re:Re:목록 다양화 질문입니다.! 497 2020/04/04
16095         Re:Re:목록 다양화 질문입니다.! 481 2020/04/04
16101             Re:Re:Re:목록 다양화 질문입니다.! 정성훈.해미 565 2020/04/07
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.