Ajuda - Delphi

[Owner 8]

Olá,

Eu queria fazer um projeto que faz o seguinte, é um clean, que excluir arquivos das extensões ( txt | jpg | dump | dmp | Bin | V3D )Olhe uma Preview:

Como ficaria o código ( eu to com uma ideia mas nao sei colocar em codigo :S )

Se na pasta C:\Web Cheats tiver arquivo com extensão txt então

Delete Arquivo

Dá para entender ?

[felipeanchieta 3]

Não seria tipo que nem o comando DOS:

 

Sintaxe: del <pasta><arquivo>

Exemplo: del C:\Doguinhas\*.txt

 

Porque tipo, é mais fácil mandar excluir logo todos os arquivos do tipo X de uma pasta do que verificar se arquivos do tipo X existam? Entendeu?

[~OwneR~ 8]

Coloque um TFileListBox (Win 3.1) e adapte o código:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Mas realmente é mais fácil fazer do jeito que o felipeanchieta disse...

[TH3 CH4OS 10]

A logica seria simples, iria fazer um bat para deletar os arquivos , MASSSSSSSSSS.... O shellexecute tem um bug q n executa .bat :bebum:

[~OwneR~ 8]

@TH3 CH4OS

Como assim bug? O ShellExecute abre qualquer arquivo normalmente, você que deve estar passando algum parâmetro errado =S

[Owner 8]

Ok !

Funcionou eu fiz assim:

Abri o CMD, e coloquei ( como o Felipe disse ):

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Mas tipo como eu chamo o CMD e colocar esse codigo e dar enter ao mesmo tempo oculto ?

Tentei assim:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Mas só abre o CMD, e eu queria que adicionasse o codigo:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

E da-se enter (:

Abrasz

[felipeanchieta 3]

Pseudo-código:

 

se (caixaX.selecionada) fazer-> StringX := String (sei lá)

 

O importante é, que quando uma caixa for selecionada, ele crie uma String e dê o valor del C:\Level Up! Games\Combat Arms\*.txt.

 

Aí quando clicar em Limpar, usa o ShellExecute (ou algo parecido), para executar o valor da(s) String(s).

 

Se você conseguir ocutar o cmd do usuário, vai ser melhor!

 

---

 

Comentário Adicional: O pessoal fala tão mal do C/C++! Mas veja como é fácil isso:

 

Lá, com a sua GUI, seguindo a mesma lógica que eu fiz acima, ele salvaria em uma String (stringA) algo assim:

del C:\\Level Up! Games\\Combat Arms\\*.txt (a barra é um caracter reservado para formatação, então, para um String ter uma barra, você deve colocar duas! =X )

 

Whatever, a função system() é semelhante ao comando ShellExecute. A diferença é simples:

 

system( stringA );

 

Pronto! Ele executaria normalmente sem nenhum problema!

[DragonBoss 9]

se ele abrir o cmd com o codigo, ele nao precisa dar enter =P

 

eh ke nem abrir um navegador com um hyperlink ;/

vc nao precisa dar enter pra abrir o site ;P.. ele vai direto

 

entendeu ?

 

entao eh soh colokar os parametros corretos.... ou seja, poe pra abrir o cmd e em seguida executar o comando ( tudo é parametro ), soh vc dar uma peskisada ke isso eh facil....

 

 

flw

[~OwneR~ 8]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Basta alterar a extensão, o /c é pra fechar o cmd quando acabar a exclusão, você pode por SW_HIDE para não mostrar o cmd...

[TH3 CH4OS 10]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Basta alterar a extensão, o /c é pra fechar o cmd quando acabar a exclusão, você pode por SW_HIDE para não mostrar o cmd...

 

Cara vc resolveu o Meu Topico :rock:

[Owner 8]

Obrigado por ajuda de todos !

Respondeu minha duvida

Mas tipo oque é PChar que você usou ?

É oque é nil ?

Descuulpa pergunta mais eu não so quero o codigo mas sim aprender (:

[TH3 CH4OS 10]

Pchar= com isso vc pode colocar exemplo "Edit1.Text" entre outros

EX:

PCHAR

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

SEM PCHAR

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Nil=Significa valor nulo (0)

(desculpa se expliquei mal :chorando:)

[Owner 8]

Ahh sim agora sim !

Mas porque tem que colocar NIL

eu tentei tirar e deu erro (:

Abrasz

[~OwneR~ 8]

PChar = Você converte o valor para PChar (pointer)

Nil = Ponteiro nulo, mesma coisa que ''

[Ryokusei 28]

Ahh sim agora sim !

Mas porque tem que colocar NIL

eu tentei tirar e deu erro (:

Abrasz

 

É mentira o que o TH3 CHAOS falou, mas ele falou na boa intenção.

PChar indica um ponteiro para um caracteres, serve também para strings já que uma string é um array de caracteres. No Delphi, se você usar PChar(minha_var_string) o compilador vai pegar o ponteiro da string e utilizar, já que as strings do Delphi são diferentes do padrão (C/C++). No Delphi uma string é um ponteiro para o ponteiro da string na memória.

 

Se não entendeu, recomendo debugar algum aplicativo que mexa com strings para entender como o Delphi opera strings na memória.

[Owner 8]

Entendi sim !

Pode dar close (:

[TH3 CH4OS 10]

É mentira o que o TH3 CHAOS falou, mas ele falou na boa intenção.

PChar indica um ponteiro para um caracteres, serve também para strings já que uma string é um array de caracteres. No Delphi, se você usar PChar(minha_var_string) o compilador vai pegar o ponteiro da string e utilizar, já que as strings do Delphi são diferentes do padrão (C/C++). No Delphi uma string é um ponteiro para o ponteiro da string na memória.

 

Se não entendeu, recomendo debugar algum aplicativo que mexa com strings para entender como o Delphi opera strings na memória.

 

Realmente eu falei merda acima :droga: , mas para min era isso :nice:

[Ryokusei 28]

Resolvido, fechado.