Array
(
)

SendMessage:Pergunta Simples

Paulocesar1301
   - 11 abr 2006

Pessoal...

Insiro mensagens em uma janela de outro sistema com

#Código


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


Sremulador
   - 12 abr 2006

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


Paulocesar1301
   - 12 abr 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 ...

#Código


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