Criando um Cleaner para Combat Arms

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;