[Tutorial]Criando um Cleaner em Delphi 7

por Strondado~' 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 >>

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Deixe +/- assim >>

[Tens de ter uma conta e sessão iniciada para poderes visualizar 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 >>

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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

Código:
Edit1.Enabled:= true;

ficara assim >>

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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

Código:
Edit1.Enabled:= false;

Ficara assim >>

[Tens de ter uma conta e sessão iniciada para poderes visualizar 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 >>

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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

Creditos:

Strondado~' (EU)