Deletar arquivo pelo programa

por Mr.Positive 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]