Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Criando um Cleaner para Combat Arms

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Criando um Cleaner para Combat Arms

Mensagem por Mr.Positive em Qua Jan 12, 2011 4:19 pm

Combat Arms Cleaner Tutorial
By Detroyd e # Shalck ~

Primeiro adicione:
1 Edit
10 Checkboxes
2 Buttons

Foto do meu cleaner:

PS: O XPManifest e o Timer não são necessários, pois no meu cleaner o timer é para mostrar as horas na Status Bar e o XPManifest para deixar o clenaer mais bonito.

O edit você bota Enable como False, e no código do Button "Mudar" você bota que se o Edit estiver Enable False, ele virá True e se vice versa. No button "Limpar" vai ser um pouco mais complicado...

Primeiro você declara a seguinte variável:

Código PHP:

SearchRec : TSearchRec;


Depois nos devemos adiconar o que o Cleaner vai mostrar se não estiver nada selecionado, mas como? Simples:
Código PHP:

if (CheckBox1.Checked=False) and (CheckBox2.Checked=False) and (CheckBox3.Checked=False) and (CheckBox4.Checked=False) and (CheckBox5.Checked=False) and (CheckBox6.Checked=False) and (CheckBox7.Checked=False) and (CheckBox8.Checked=False) and (CheckBox9.Checked=False) then
MessageBox (Handle, 'Por favor, selecione algum arquivo para ser excluido!', 'Erro', MB_ICONERROR+MB_SYSTEMMODAL);


Depois nos vamos fazer com que o cleaner só delete oque foi selecionado, usando o seguinte código:
Código PHP:

if CheckBox1.Checked=True then
try
FindFirst( Edit1.Text+'*.txt', faAnyFile, SearchRec );
repeat
DeleteFile( Edit1.Text + SearchRec.name );
until FindNext( SearchRec ) <> 0;
finally
FindClose( SearchRec );
end;


Como vocês podem ver, nós falamos para o Delphi excluir todos os arquivos com a extensão .txt de uma seguinte pasta que seria a pasta do Edit1. Lembrando que esta pasta sempre deve terminar com "" e que você deve botar este código para cada checkbox, mas deve mudar a extensão de acordo com cada checkbox.

Agora nós vamos fazer com que o CheckBox 10 (Checar todos) checke todos os outros quando for checado, utilizando o seguinte código:
Código PHP:

if CheckBox11.Checked=True then
begin
Checkbox1.Checked:=True;
Checkbox2.Checked:=True;
Checkbox3.Checked:=True;
Checkbox4.Checked:=True;
Checkbox5.Checked:=True;
Checkbox6.Checked:=True;
Checkbox7.Checked:=True;
Checkbox8.Checked:=True;
Checkbox9.Checked:=True;
end
else
begin
Checkbox1.Checked:=False;
Checkbox2.Checked:=False;
Checkbox3.Checked:=False;
Checkbox4.Checked:=False;
Checkbox5.Checked:=False;
Checkbox6.Checked:=False;
Checkbox7.Checked:=False;
Checkbox8.Checked:=False;
Checkbox9.Checked:=False;
end;

Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum