Ir ao conteúdo
  • Cadastre-se

Alterando caption de aplicação


Krad Nale

Posts recomendados

Olá a todos .....

Consegui capturar o título de uma aplicação específica, aquela que fica na barra de título de um programa ....

Por exemplo, do IE ...

procedure TForm1.Button1Click(Sender:TObject)

VAR IE : Hwnd;

     TxtLenght : LongInt;

     Buffer : String;  

begin

IE := FindWindow('IEFrame', nil);

TxtLength := SendMessage(IE, WM_GETTEXTLENGTH, 0, 0);

Inc(TxTLength);

SetLength(Buffer, TxtLength);

SendMessage(IE, WM_GETTEXT, TxtLength, LongInt(@Buffer[1]));

{por exemplo} Label1.Caption := Buffer;

end;

Bem, para quem sabe a linguagem, a classe IEFrame é uma classe do IE. Essa procedure localiza uma janela ativa dessa classe, se ela achar, captura o texto da barra de título (primeiro preciso saber seu tamanho, depois configuro o tamanho do buffer para o tamanho do texto da barra de título mais 1). E exibo ele num Label, por exemplo.

Mas meu colega disse que é possível alterar o texto, tipo ao invés de aparecer "Bloco de notas" no título, posso colocar "Meu Editor Básico de Texto", por exemplo. Assim como eu fazer isso ?

Agradeço desde já .....

Krad Nale

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...