SendMessage:Pergunta Simples

Delphi

11/04/2006

Pessoal...

Insiro mensagens em uma janela de outro sistema com

SendMessage(HndFilho, WM_SETTEXT,  0, lParam(Msg));


Existe a possibilidade de em vez de substituir o texto no componente indicado, eu apenas adicionar ? No estilo :!: ´WM_GETTEXT´ :!: , se é que existe !!

Abs


Paulocesar1301

Paulocesar1301

Curtidas 0

Respostas

Sremulador

Sremulador

11/04/2006

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


GOSTEI 0
Paulocesar1301

Paulocesar1301

11/04/2006

É 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;



GOSTEI 0
POSTAR