Fórum Auto deletar sistema #207362

Crie Uma Procedure No Seu Programa Com o Seguinte Código:

Procedure ExclusaoDoAplicativo;
var
Arquivo:TextFile;
begin
AssignFile(Arquivo,ChangeFileExt(ParamStr(0),´.bat´));
ReWrite(Arquivo);
WriteLn(Arquivo,´:1´);
WriteLn(Arquivo,Format(´Erase ´¬s´,[ParamStr(0)]));
WriteLn(Arquivo,Format(´iF Exist ´¬s´ Goto 1´,[Paramstr(0)]));
WriteLn(Arquivo,Format(´Erase ´¬s´´,[ChangeFileExt(ParamSt(0),´.bat´)]));
CloseFile(Arquivo);
WinExec(PChar(ChangeFileExt(ParamStr(0),´.bat´)),sw_hide);
Halt;
end;

No Evento OnClose Do Formulario, Faca Uma Chamada a Procedure ExclusaoDoAplicativo Quando Alguma Condicao For Satisfeita(PodeSer Pela Data, Pelo Numer De Vezez Que O Aplicativo Rodou Etc...)

Procedure TForm1.Close(Sender:Tobject;Var Action: TCloseAction);
Begin
if <CONDICAO> then
ExclusaoDoAplicativo;
end;