Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Deletar arquivo pelo programa

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Deletar arquivo pelo programa

Mensagem por Mr.Positive em Qua Jan 12, 2011 4:24 pm

Adicione 1 Button .


No button add o código :

procedure TForm1.Button1Click(Sender: TObject);
var
Mr.Positive: string;
begin
Mr.Positive:= 'C:\NomeDoArquivo.formato';
if DeleteFile(Mr.Positive) then
ShowMessage('Arquivo deletado com êxito.')
else
ShowMessage('Erro:Verifique se o arquivo existe'.);
end;

Vamos entender o codigo ...

Primeiro , armazena a string Mr.Positive , mas é claro vc pode mudar para qual quiser =D , depois , diz queMr.Positive é igual ao arquivo que estará ao lado . Usa a funçao DeleteFile para deletar o arquivo , e depois utiliza o ShowMessage para exibir caso o arquivo for deletado com exito uma mensagem , e outra mensagem dizendo que nao foi possivel excluir o arquivo caso não de para deletar o arquivo .

Creditos:'Samu'EL~*

Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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