Deletar arquivo pelo programa

Ir em baixo

Deletar arquivo pelo programa

Mensagem por Mr.Positive em Ter Dez 28, 2010 2:32 pm

[QUOTE=~ Sherlock;434538]
Adicione 1 Button .


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

Vamos entender o codigo ...

Primeiro , armazena a string InvisonCheats
, mas é claro vc pode mudar para qual quiser =D , depois , diz que
InvisonCheats é 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~*
[/QUOTE]
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

Voltar ao Topo


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