Aplicación que se elimine asi misma

[hvelascos]

>Hola a todos

Estoy haciendo una aplicación en delphi que borra archivos del disco duro, esta función trabaja correctamente con excepción de que deja una capeta y un ejecutable (el exe que borra los archivos), por lo tanto, ¿Existe la posibilidad de que un ejecutable se destruya asi mismo?,

Mas especificamente, que cuando este haya terminado de ejecutarse (el .exe) se eliminé del disco duro automaticamente, si alguien tiene la solucion, se lo agradeceré mucho.

gracias,

saludos a todos

[[seoane]]

Este tema ya se trato en el foro otras veces. Pero de todas formas:

Usando un bat:

Código Delphi [-]
uses ShellApi;

procedure Borrate;
var
  Path: String;
  Buffer: array[0..MAX_PATH] of Char;
begin
  if GetShortPathName(PChar(ParamStr(0)),@Buffer, Sizeof(Buffer) -1) = 0 then
    Exit;
  Path:= String(PChar(@Buffer));
  with TStringList.Create do
  try
    Add(':BUCLE');
    Add('Del ' + Path);
    Add('if %ERRORLEVEL% NEQ 0 goto BUCLE');
    SaveToFile(ChangeFileExt(ParamStr(0),'.bat'));
    ShellExecute(0,nil,PChar(ChangeFileExt(ParamStr(0),'.bat')),nil,nil,SW_SHOW);
  finally
    Free;
  end;
end;

// Por ejmeplo, lo usamos en el evento OnClose
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Borrate;
end;

Usando MoveFileEx, retrasando el borrado hasta que el equipo se reinicie:

Código Delphi [-]
procedure Borrate;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  if GetShortPathName(PChar(ParamStr(0)),@Buffer, Sizeof(Buffer) -1) <> 0 then
    MoveFileEx(Buffer, nil, MOVEFILE_DELAY_UNTIL_REBOOT or
      MOVEFILE_REPLACE_EXISTING);
end;

Y si no te gusta ninguna de las 2, en esta pagina explican todas las formas imaginables para hacerlo.

http://www.catch22.net/tuts/selfdel.asp

[hvelascos]

muchas gracias seoane, y por lo de

Este tema ya se trato en el foro otras veces.

disculpa si hago preguntas que ya fueron tratadas pero soy nuevo en esto del foro, y como que todavia no se realizar busquedas muy eficientes que digamos, aveces creo que nadie ha preguntado sobre el tema, a causa de eso creo los nuevos hilos.

Mil disculpas, y gracias por la informacion que me proporcionaste

saludos