Criando um Cleaner para Combat Arms

Ir em baixo

Criando um Cleaner para Combat Arms

Mensagem por Mr.Positive em Ter Dez 28, 2010 2:24 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;


Não é pra Move Para Area CTutoriais Combat Arms !
avatar
Mr.Positive
Membro
Membro

Mensagens : 54
Agradecimentos : 11
Data de inscrição : 28/12/2010
Idade : 23
Localização : Recreio

Ver perfil do usuário http://www.jonathanmaia.com.br

Voltar ao Topo Ir em baixo

Re: Criando um Cleaner para Combat Arms

Mensagem por maniacodark em Ter Mar 08, 2011 8:21 pm

Gostei muito de seu tutorial mas queria pedir uma coisa, qual codigo eu terei que botar pra aparecer a seguinte menssagem apos eu clicar em Limpar:

Logs Limpos com Sucesso!

Se nada tiver selecionado vai dar aquele erro mas se algo tiver selecionado keria q aparece-se isso. Qual seria o codigo Obrigado...
avatar
maniacodark
Membro
Membro

Mensagens : 1
Agradecimentos : 0
Data de inscrição : 08/03/2011

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo


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