GHS - Change CaptionMu - Código-Fonte.

[LaBaK]

Bom gente,

Tenho esse código de mudar o caption do MU para não usar MultiHack mais isso não impedi nada ;D então estou disponibilizando isso.

Esse MultiHack ele vai funcionar sempre, é só você criar um e para pegar o a Classe do MU se for colocar para pegar só pelo nome da Janela e se o main estiver com esse Change Caption não vai funcionar só vai funcionar com Classe do MU, e quem souber trabalhar com Classe não terá dificuldade nisso.

Como usar:

1º Você adicione um Timer1 da Paleta system e coloca no seu form
2º Vai no OnTimer do Timer1 e coloca esse simples código.

var
hThandle : THandle; // Vai pegar o Handle do MU
Caption : String; // String do Caption
i: integer;
const
Crypt = 'ABCDEFGHIJ1234567890'; // Pode colocar qualquer letra
Qtd = 10; // Aqui você pode aumentar a quantidade de característica para aparecer no Caption do MU '-'
begin

 Caption := 'GHS - '; // Aqui vai mostra na janela do mu GHS e afrente do " - " as característica vão mudar e o nome GHS permanece.
 for i := 1 to Qtd do begin// Aqui ele vai fazer um laço de 1 até 10
 {Não mecha nessa parte aqui de baixo.}
 hThandle := FindWindow(Pchar('MU'),nil);
 Caption := Caption + Crypt[random(length(Crypt))+2];
 SetWindowText(hThandle,(Pchar(Caption)));

    end;
 end;
end. 

PS: Não me pergunta como adaptar esse código na sua dll não.

Download da Source: [Somente usuários registrados podem vem os links. ]


Vídeo de demostração:





Créditos:
LaBaK -