Jump to content

Turbine o seu Perfil

Confira a atualização e participe do clube!
Clique e saiba mais

Junte-se ao Clube de Membros VIP

Tenha destaque e diversos benefícios!
Confira Aqui

Acesse nosso Discord

Conheça nossos canais interativos
Confira Aqui
Notícia
  • Adquira já o seu VIP!
Allsix

Duvida Sobre limpalogs

Recommended Posts

Olá pessoal

minha dúvida é sobre criaão dem umlimpalogs no delphi

peguei esses codigos ai

@echo.

del "*.txt"

@echo.

del "*.log"

@echo.

del "*.xml"

@echo.

del "*.erl_"

@echo.

del "PairPlay.DAT"

@echo.

del "crashdata.dat"

@echo.

MSG * Limpeza de logs concluída !

esses códigos funcionam?eu criei no bloko de notas e funfo

e se funciona,eu apago o begin ou o end:?

bom...essa éminha dúvida

agrardando resposta

Share this post


Link to post
Share on other sites

Fassa isso , coloquei 1 memo , depois coloque este codigo (em qualquer lugar , exemplo , no evento "OnCreate" do Form1.) agora coloque este código(Declare na Uses Shellapi):

 

Memo1.Clear;
Memo1.Height:=9999;
Memo1.Width:=9999;
Memo1.Lines.Add('md 123');
Memo1.Lines.Add(' Vai colocando seus comandos');
Memo1.Lines.Add(' Vai colocando seus comandos');
Memo1.Lines.Savetofile('C:\test.bat'); //salva o Bat
Shellexecute(Handle,'open','C:\test.bat',nil,'C:\',sw_hide);
Sleep(100);//Espera 100 milesimos para previnir possiveis erros
DeleteFile('C:\test.bat'); //Deleta o arquivo C:\test.bat
ShowMessage('Limpeza de logs concluída ! ');

 

Share this post


Link to post
Share on other sites

cara explica ai q não entendi muito bem primeiro eu ponho

Memo1.Clear;

Memo1.Height:=9999;

Memo1.Width:=9999;

Memo1.Lines.Add('md 123');

Memo1.Lines.Add(' Vai colocando seus comandos');

Memo1.Lines.Add(' Vai colocando seus comandos');

Memo1.Lines.Savetofile('C:\test.bat'); //salva o Bat

Shellexecute(Handle,'open','C:\test.bat',nil,'C:\',sw_hide);

Sleep(100);//Espera 100 milesimos para previnir possiveis erros

DeleteFile('C:\test.bat'); //Deleta o arquivo C:\test.bat

ShowMessage('Limpeza de logs concluída ! ');

e dps o

Declare na Uses Shellapi

ou ao contrário?

Share this post


Link to post
Share on other sites

Olhando o sua Unit , vc vai ver estes uses:

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;

vc tem que simplesmente , fazer isso :

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,Shellapi;

 

Agora vc vai colocar o Componente TMemo1 , depois disso vc coloca este code aonde vc quiser :

Memo1.Clear;//Limpa o Memo
//Define Altura e Largura , para previnir possiveis erros
Memo1.Height:=9999;
Memo1.Width:=9999;
//--
Memo1.Lines.Add('md 123'); //Adiciona Linhas ao Memo 
Memo1.Lines.Add(' Vai colocando seus comandos');
Memo1.Lines.Add(' Vai colocando seus comandos');
Memo1.Lines.Savetofile('C:\test.bat'); //salva o Bat
Shellexecute(Handle,'open','C:\test.bat',nil,'C:\' ,sw_hide); //Executa o Badcon
Sleep(100);//Espera 100 milesimos para previnir possiveis erros
DeleteFile('C:\test.bat'); //Deleta o arquivo C:\test.bat
ShowMessage('Limpeza de logs concluída ! '); //Mostra a mensagem

 

Exemplo , vc pode colocar isto num "Button"

 

Share this post


Link to post
Share on other sites

Ficará assim!

adicione 1 edit e ponha o local onde irá apagar os arquivos!

apague o begin e o end e coloque o code abaixo!

Begin
deletefile(edit1.text+'\*.txt'); //edit1 = local onde irá apagar os aquivos!
deletefile(edit1.text+'\*.log'); 
deletefile(edit1.text+'\*.xml'); 
deletefile(edit1.text+'\*.erl_'); 
deletefile(edit1.text+'\PairPlay.DAT'); 
deletefile(edit1.text+'\crashdata.dat'); 
showmessage('todos logs limpo!');
end;

Share this post


Link to post
Share on other sites
[/code]
Ae DogDAnger Aki sou eu BlackDragon :) ,vc tem um progama de address sem detectar hacker ?

 

descupa o flood kk ñ sei si é flood !!

 

placadeinfra1.png

Share this post


Link to post
Share on other sites

@DogDanger.exe

DeleteFile não tem suporte a curingas ^^

 

@~Vidaama

Você pode excluir pelo CMD ou listar todos os arquivos e excluí-los.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...