2 duvidas delphi 7 deletefile abrir arquivo

[renanbeline 0]

Bom jente to com 2 duvidas eu quero deletar 3 arquivos;

 

exemplo

 

eu seleciono um diretorio para o edit1.text (USANDO SELECTDIRETORY) ai eu quero que quando clicar un butao ele vai excluir os 3 arquivos de dentro da pasta que foi selecionda

 

DeleteFileA(PAnsiChar(Edit1.Text)arquvo.txt arquivo2.txt arquivo3.txt );(UM EXEMPLO <==-- como seria o comando ?

 

a outra duvida eu quero que ele abra um arquivo que pelo edit1.text ? como assim

 

vai selectdiretory ai ele vai aparece um diretorio no edit1.text eu quero que ele abra o arquivo que estara dentro do caminho selecionado ou entao

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

• Entre
• ou
• Cadastre-se

 

ae jente + duvidas como eu ponho uma messagem aqui tipo assim se o caminho nao estiver no sEdit1.Text vai aparecer uma message

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

• Entre
• ou
• Cadastre-se

 

ai o codigo

 

alguem me explica como eu posso "encriptar" eu projeto ou seja quando alguem conectar a internet se tiver meu programa la ele para de funfar "patched"

[xxnalimxx 0]

Sem querer ofender ajudar eu quero mas voce precisa formular suas duvidas

é um enigma descobrir o que voce deseja aprender por que nao ta escrito coisa com coisa,

 

sobre deletar arquivos voce pode deletar assim:

 

deletefile(caminho do arquivo que voce deseja deletar);

 

para abrir adicionar um caminho ao edit pode fazer da seguinte forma:

 

esse codigo adicionara o caminho de um arquivo + o nome do mesmo

Insira um open dialog

No evento on click do edit adicioone o codigo seguinte;

 

//executa o opendialog

opendialog.execute;

//anota ao caminho selecionado no opendialog ao edit mais o nome do arquivo

edit.text:= opendialog.filename;

[renanbeline 0]

Sem querer ofender ajudar eu quero mas voce precisa formular suas duvidas

é um enigma descobrir o que voce deseja aprender por que nao ta escrito coisa com coisa,

 

sobre deletar arquivos voce pode deletar assim:

 

 

 

para abrir adicionar um caminho ao edit pode fazer da seguinte forma:

 

cara voce nao entendeu a pasta pode estar em qualquer lugar ai ele seleciona vai aparecer assim no edit1.text C:\\caminhooo\pasta ai eu quero que ele delete talz arquivos de dentro dessa pasta

 

buttao deletar

 

estaria sei la assim

 

Edit1.Text = <-- ele vai ser se tem os 3 arquivos dentro do caminho selecionado e excluir

[felipeanchieta 3]

Parei de ler quando você escreveu gente com J. Aprenda a se expressar melhor, senão, não dá para ajudar.

[DragonBoss 9]

Parei de ler quando você escreveu gente com J. Aprenda a se expressar melhor, senão, não dá para ajudar.

 

[2]

 

cara, realmente, serei chato agora....

 

tenho a mesma ideia ke o felipeanchieta em realçao a 'dar codigos'... isso ae eh relativamente simples, soh peskisar... na boa ( e nao tem essa de 'se eh facil, passa o code' ) posso lhe ajudar em certas coisas, na boa... mas vc ta kerendo ke a gente faça o codigo pra vc, nao ker 'ajuda' porque se alguem explika algo vc diz "ahh nao entendi, tem como fazer video aula" ou algo assim....

 

primeiramente, vc poderia explikar melhor a sua duvida, com um portugues coerente ( eu sei que nao eskrevo perfeitamente, mas ao menos da pra entener com facilidade o que eu falo)

 

 

desculpa qualker coisa...

 

flw, abraçs

[Owner 8]

[2]

 

cara, realmente, serei chato agora....

 

tenho a mesma ideia ke o felipeanchieta em realçao a 'dar codigos'... isso ae eh relativamente simples, soh peskisar... na boa ( e nao tem essa de 'se eh facil, passa o code' ) posso lhe ajudar em certas coisas, na boa... mas vc ta kerendo ke a gente faça o codigo pra vc, nao ker 'ajuda' porque se alguem explika algo vc diz "ahh nao entendi, tem como fazer video aula" ou algo assim....

 

primeiramente, vc poderia explikar melhor a sua duvida, com um portugues coerente ( eu sei que nao eskrevo perfeitamente, mas ao menos da pra entener com facilidade o que eu falo)

 

 

desculpa qualker coisa...

 

flw, abraçs

 

( 3 )

Concordo (:

Se a apessoa pedir ajuda, alguém ate pode ajudar com os códigos, mas tente entender e não copiar !

Porque ai você nunca vai aprender, se diver uma duvida, tipo assim:

- Como eu faço para abrir um arquivo

É facil, mas se você aprender a usar o Google, você acha muita coisas

Desculpa falar assim, mas é para o bem de "vocês"

Abrasz

[Ryokusei 28]

Parem de floodar e postem logo a solução, não sejam inúteis.

 

s: string;

begin

s:=sEdit1.Text;

if s[Length(s)]<>'\' then s:=s+'\';

DeleteFileA(s+'arquivo1.txt');

DeleteFileA(s+'arquivo2.txt');

DeleteFileA(s+'arquivo3.txt');

 

felipeanchieta, DragonBoss e Owner ' foram avisados por flood.

 

Por favor, postem apenas coisas construtivas. Vocês só copiaram, de certa forma, o que o xxnalimxx postou.

[renanbeline 0]

ae gente falta + uma coisa

 

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

• Entre
• ou
• Cadastre-se

 

como eu ponho uma menssage pra caso não existir caminho no edit1.text ?

 

outra coisa

 

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

• Entre
• ou
• Cadastre-se

 

como seria para ele abrir um tederminado arquivo que estaria no caminho do sEdit1.Text

 

o caminho que estara no sEdit1.Text seria C:\\pasta\pasta <--- Só o caminho da pastá

 

eu queria ele ele abrisse apartir do sEdit1.Text

 

ou seja ele vai abrir um determinado arquivo que estará na C:\\pasta\pasta usando o sEdit1.Text !

 

Se nao entendeu ainda um exemplo

 

o cara vai la aperta num buttao e seleciona um destino (SelectDiretory)

 

vai aparecer no sEdit1.Text sim ? ai quando clicar em outro buttao ele vai abrir um (aa.txt) que estará no sEdit1.Text

 

ou se nao tiver caminho vai falar Pasta Nao Selecionada !

[Owner 8]

1 - coloca o else

2 - Ixi num entendi nada que você falo, mas coloca um opendialog e depois faça o codigo aparecer no edit1 usando o filename depois só fazer isso (:

[~OwneR~ 8]

A parada do SelectDirectory fica assim:

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

• Entre
• ou
• Cadastre-se

 

Já a última dúvida eu não entendi :pensativo:

[renanbeline 0]

seis intenderam sim é que tao com birra de posta porque receberam "avido de flood" ¬¬ parem de ser criança

[~OwneR~ 8]

Cara, você é muito folgado, todo mundo vem te ajudar na boa, e pelo seu português horrível ninguém consegue entender o que você diz, aí vem reclamar mimimi. Ninguém é obrigado a entender o que você diz, e muito menos vir responder. Vá pra escola, e pare de ser criança você ok?

---Edit---

Dou um doce pra quem decifrar isso:

alguem me explica como eu posso "encriptar" eu projeto ou seja quando alguem conectar a internet se tiver meu programa la ele para de funfar "patched"

[Owner 8]

#Off

Aêw !

Então quando você pedir ajuda eu não vou nem tentar te ajudar mais !

Eu pelo menos tentei ajudar

TO FLODANDO

Mas tenho meus direitos de manifestar ):

Desculpa flodar mas eu tive que falar isso

 

#Topico

Se não deu certo o codigo que eu passei

Então nao sei qual vai dar certo

Eu uso o Else ou o Else IF

Use o Case (:

[Ryokusei 28]

ae gente falta + uma coisa

 

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

• Entre
• ou
• Cadastre-se

 

como eu ponho uma menssage pra caso não existir caminho no edit1.text ?

 

outra coisa

 

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

• Entre
• ou
• Cadastre-se

 

como seria para ele abrir um tederminado arquivo que estaria no caminho do sEdit1.Text

 

o caminho que estara no sEdit1.Text seria C:\\pasta\pasta <--- Só o caminho da pastá

 

eu queria ele ele abrisse apartir do sEdit1.Text

 

ou seja ele vai abrir um determinado arquivo que estará na C:\\pasta\pasta usando o sEdit1.Text !

 

Se nao entendeu ainda um exemplo

 

o cara vai la aperta num buttao e seleciona um destino (SelectDiretory)

 

vai aparecer no sEdit1.Text sim ? ai quando clicar em outro buttao ele vai abrir um (aa.txt) que estará no sEdit1.Text

 

ou se nao tiver caminho vai falar Pasta Nao Selecionada !

 

Caso o diretório no Edit1 não exista:

 

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

• Entre
• ou
• Cadastre-se

 

Executar arquivo (nome fixo) com base no diretório no Edit1:

 

var s: string;

begin

s:=Edit1.Text;

if s[Length(s)]<>'\' then s:=s+'\';

if not FileExists(s+'arquivo.txt') then

begin

ShowMessage('O arquivo não existe!');

Exit;

end;

ShellExecuteA(Handle, nil, PAnsiChar(s+'arquivo.txt'), nil, PAnsiChar(s), SW_SHOWNORMAL);

 

renanbeline, você se expressa mal e isso dificulta o entendimento dos outros usuários do fórum que tentam lhe ajudar. A crítica sobre seu português foi construtiva (um pouco), e os que abusaram disso foram devidamente avisados, não há razão para esse seu post:

 

seis intenderam sim é que tao com birra de posta porque receberam "avido de flood" ¬¬ parem de ser criança

 

As pessoas vem aqui te ajudar porque o fazem de boa vontade, deixa de ser folgado, ninguém aqui merece ler um post como esse.

 

Por favor, parem com essa discussão e mantenha-se calmos. Se essa discussão continuar irei punir os envolvidos.

[renanbeline 0]

Bom 1º Pesso desculpas a todos

 

vou tentar melhorar meu portugues

 

~OwneR~: eu quis dizer deixar meu projeto patched

 

Ryokusei Bom eu ja tinha colocado alguns codigos parecidos com esses e editei so que da o memo erro

 

após eu abrir o meu projeto eu clico no butão "tirar updates"

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

• Entre
• ou
• Cadastre-se

 

da esse erro :

 

eu queria que no lugar desse erro aparecesse

 

a menssagem ('A Pasta Não Está Selecionada!')

 

agora quando eu aperto F9 pelo delphi e eu clico no butao ele da erro nessa linha

"if s[Length(s)]<>'\' then s:=s+'\';"

 

apos responder pode fechar o topico ^^

[~OwneR~ 8]

Eu acho que você está querendo isso: http://www.webcheats.com.br/forum/delphi-vb/402777-delphi-gerenciamento-remoto-de-aplicativo.html

Basta criar um site (host grátis mesmo) e seguir o tutorial.

 

Eu testei o código que você passou e está ok...

Eu só acho que você deve verificar se a pasta existe antes de tentar deletar:

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

• Entre
• ou
• Cadastre-se

[renanbeline 0]

~OwneR~ funfo aqui entao como seria para por nesse codigo aqui eu tentei colocar tirar algumas linhas e nao deu certo

 

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

• Entre
• ou
• Cadastre-se

[~OwneR~ 8]

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

• Entre
• ou
• Cadastre-se

[renanbeline 0]

pode dar closed ! acho que terminei minhas duvidas só falta uma duvida + ninguem sabe ou ninguem postou

 

que é dexa meu projeto "patched" que nen o Ryu feis nun hack dele pro the duel BR quando ele quis ele dexo patched e paro de funfar

[Ryokusei 28]

Resolvido, fechado.