teatro

Set Window Text ele é usado para mudar o nome (caption) de uma Janela ou traduzindo o próprio nome "Definir janela de texto". Ele ajuda burlar o Arcade Protector! Print:jhhhhfgggggggggghk fgggggggggggggggggguy fttttttttttttttttttttttttttttttttt

ftuyeru6tou

drtuwerirtyio9

tyuioryi8euer ruyeiu Primeiramente o código é este aqui: var MhPT : THandle; begin MhPT := findWindow(nil , PChar(Edit1.Text)); if MhPT 0 then SetWindowText(MhPT, PChar(Edit2.Text)); end; Como utilizar: 1- Abra seu Delphi
2- Crie um projeto "Application"
3- Adicione um Button, e duas Edit's na Edit1 é o nome da janela real, e na Edit2 é aonde vai ficar o novo nome
4- De dois cliques no Button apague o Begin e o End;
5- E adicione o código que está no começo do tópico
6- Execute apertando F9, e basta escrever na Edit1 o nome que está a janela, por exemplo: Delphi 7, e na Edit2 escrever o novo nome, por exemplo: Sou lindo!
7- Basta apertar o Button que vai mudar o nome da janela! Créditos:
Droogba - EU

2
Quote
MultiQuote
Print:jhhhhfgggggggggghk
fgggggggggggggggggguy

fttttttttttttttttttttttttttttttttt

ftuyeru6tou

drtuwerirtyio9

tyuioryi8euer ruyeiu Primeiramente o código é este aqui: var MhPT : THandle; begin MhPT := findWindow(nil , PChar(Edit1.Text)); if MhPT 0 then SetWindowText(MhPT, PChar(Edit2.Text)); end; Como utilizar: 1- Abra seu Delphi
2- Crie um projeto "Application"
3- Adicione um Button, e duas Edit's na Edit1 é o nome da janela real, e na Edit2 é aonde vai ficar o novo nome
4- De dois cliques no Button apague o Begin e o End;
5- E adicione o código que está no começo do tópico
6- Execute apertando F9, e basta escrever na Edit1 o nome que está a janela, por exemplo: Delphi 7, e na Edit2 escrever o novo nome, por exemplo: Sou lindo!
7- Basta apertar o Button que vai mudar o nome da janela!