[Tutorial]Criando um Cleaner em Delphi 7

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

[Tutorial]Criando um Cleaner em Delphi 7

Mensagem por Strondado~' em Qui Ago 02, 2012 10:22 pm

Olá sei que nao a muitos topicos aqui, em Tutoriais e resolvi dar uma passadinha e postar um conteudo relacionado a Cleaner sei que gente nao sabe faze Cleaner para Combat Arms e Fica se matando para achar entao resolvi postar . entao vamos la!!

Adicione os seguintes componentes:

10- CheckBox (Vê a imagen e renomeie)
4- GroupBox (Veja a imagen e renomeie)
3- Buttons (Veja a imagen e renomeie)
1- Edit (Renomeie para " C:\Level up games\Combat Arms " sem aspas)
2- Labels (Renomeie para seu site) o outro (Renomeie para seu Nick >> Nome <<)

O mais importe na " Var " adicione o seguinte codigo >>

Código:
SearchRec : TSearchRec;

Ficara assim >>

[Você precisa estar registrado e conectado para ver esta imagem.]

Deixe +/- assim >>

[Você precisa estar registrado e conectado para ver esta imagem.]

Pronto agora Adicione o seguinte codigo no CheckBox10

Código:
if CheckBox10.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;
end;

ficara assim >>

[Você precisa estar registrado e conectado para ver esta imagem.]

agora clicke no " Mudar " e adicione o seguinte codigo >>

Código:
Edit1.Enabled:= true;

ficara assim >>

[Você precisa estar registrado e conectado para ver esta imagem.]

agora clicke no " Blockear " e adicione o seguinte codigo >>

Código:
Edit1.Enabled:= false;

Ficara assim >>

[Você precisa estar registrado e conectado para ver esta imagem.]

Clicke no " Limpar Logs! " e adione o seguinte codigo >>

Código:
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, 'Selecione Algum Arquivo a Ser Deletado!', 'Cleaner v1', MB_ICONERROR+MB_SYSTEMMODAL);
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;
end;

Ficara assim >>

[Você precisa estar registrado e conectado para ver esta imagem.]

Pronto Cleaner Criado!! Ponha meus devidos creditos se for postar ^^

Creditos:

Strondado~' (EU)

Strondado~'
Adminitrador
Adminitrador

Mensagens : 23
Pontos : 1728
Data de inscrição : 02/08/2012
Idade : 18
Localização : Combat Arms

http://scriptycheats.foruns.com.pt

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