[Tutorial] Alterando nome de janelas

[Puncker 201]

Alterando nome de janelas

{Iniciando em Delphi}

Está aqui mais um tutorial de Delphi.

O programa que será feito a seguir irá alterar o nome da janela que você quizer por exemplo, você está com o Firefox aberto e você digita no programa Firefox(nome da janela), e em outro lugar um novo nome, ao clicar no botao o nome da janela Firefox muda.

Vamos Começar

1 - Componentes

• Adicione ao seu projeto, 2 "Edit" na aba Standard
  
• Adcione um "Button" também na aba Standard
  

2 - Código

• No Button coloque o seguinte código:
  

var

  H : THandle;

begin

  H := findWindow(nil, PChar(Edit1.Text));

  if H <> 0 then begin

    SetWindowText(H, PChar(Edit2.Text));

    showmessage('Nome alterado com sucesso.')

  end else begin ShowMessage('Janela não encontrada.'+#13+'Tente Novamente.');

end;

Pronto, seu programa está pronto para rodar, agora aperte F9 (Compila e Testa) e verifique se está tudo correto.

[Renato 659]

Massa

Da pra mudar o nome do Tibia?

Rep

[Puncker 201]

Da sim, é só digitar Tibia no primeiro Edit e depois o que você quer no segundo Edit.

[Hoo 0]

Eu segui passo a passo e nao consigui, mudar o nome da minha Janela.

Favor ajude-me. rsrs

Obg

[Private Sub Teste 353]

var

H : THandle;

begin

H := findWindow(nil, 'Tibia');

if H <> 0 then begin

SetWindowText(H, PChar(Edit2.Text));

showmessage('Nome alterado com sucesso.')

end else begin ShowMessage('Janela não encontrada.'+#13+'Tente Novamente.');

end;

Tente assim. Ou

var

H : THandle;

begin

H := findWindow(nil, 'Tibia');

if H <> 0 then begin

SetWindowText(H, 'Meu Tibia Edited');

showmessage('Nome alterado com sucesso.')

end else begin ShowMessage('Janela não encontrada.'+#13+'Tente Novamente.');

end;

[Hoo 0]

Obg, agora deu!