SendMessage:Pergunta Simples

Question

Pessoal...Insiro mensagens em uma janela de outro sistema com[code:1:30e4db646c]SendMessage(HndFilho, WM_SETTEXT,  0, lParam(Msg));[/code:1:30e4db646c]Existe a possibilidade de em vez de substituir o ...

Sremulador · Answer

amigo acho que pro SendMessage n�o ha como fazer isso......

Paulocesar1301 · Answer

� galera... �s vezes a gente tem que tomar vergonha na cara e quebrar a cabe�a um pouco antes de sair perguntando no forum... sorry about that!

Para quem precisar de uma coisa parecida com o que eu perguntei ...

// handle da janela
WHnd := FindWindow(nil, �MeuSistema�);
// handle da janela

If WHnd > 0 Then
Begin
  // pega handle do memo de mensagens
  WHndChild := FindWindowEx(WHnd, 0, �TMemo�, nil);
  // pega handle do memo de mensagens

  If WHndChild > 0 Then
  begin
    // pega o texto existente no componente
    SendMessage(WHndChild, WM_GETTEXT, 255, lParam(@txtAnterior[0]));
    // pega o texto existente no componente

    TMP := ��;
    TMP := ��s � + FormatDateTime(�HH:mm:ss�, Time) + � � + EnviadoPor + � diz: � + Mensagem;

    If Trim(txtAnterior) <> �� Then
    begin
      TMP := TMP + #13+10;
      TMP := TMP + Trim(txtAnterior);
    end

    SendMessage(WHndChild, WM_SETTEXT,  0, lParam(TMP));
  end;
end;