샘플 소스 procedure TForm8.Button1Click(Sender: TObject); var hKakaoHandle, hKakaoMSGHandle: THandle; DataStruct: CopyDataStruct; sMsg: String; begin sMsg := Edit1.Text; hKakaoHandle := FindWindow(nil, Edit2.Text); // 채팅방 명 if hKakaoHandle <> 0 then begin hKakaoMSGHandle := FindWindowEx(hKakaoHandle, 0, 'RICHEDIT50W', nil); if hKakaoMSGHandle <> 0 then begin SendMessage(hKakaoMSGHandle, WM_SETTEXT, 0, LParam(PChar(sMsg))); PostMessage(hKakaoMSGHandle, WM_KEYDOWN, VK_RETURN, 0); PostMessage(hKakaoMSG...
#Delphi
#SendMessage
#Spy
#카카오톡
원문링크 : [Delphi][Spy++] 카카오 채팅방 문자 보내기