:
: 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;
:
에서 if Handle1 not nil then
SendMessage(Handle1, WM_SETTEXT, 0, LParam(Pchar(edit1.Text))); //내용전송
Handle1 not the 부분하고
Text부분이 사진처럼 에러가납니다 ㅜㅜ
|