Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Auto borrado (https://www.clubdelphi.com/foros/showthread.php?t=3997)

brandolin 27-09-2003 01:11:13

Auto borrado
 
Hola gente:

En algun hilo lei a alguen que quieria hacer un probrama que se borrara solo y la verdad es que no encuentro el hilo. Ahora me toca a mi.

El tema es que tengo una aplicacion y cuando se esta ejecutando o bien luego de su ejecucion deseo que se borre automaticamente.

He tratado de utilizar el FileDelete pero me dice que la aplicacion esta en uso y alli quedo.

Desde ya gracias.

delphi.com.ar 27-09-2003 01:25:53

Prueba este código http://www-tcsn.experts-exchange.com..._20661274.html
A mi no me ha funcionado, pero sería cuestión de buscarle la vuelta.

Saludos!

brandolin 27-09-2003 14:15:54

No la verdad que ami tampoco me funciona, ya no se que tecnica aplicar.

La otra que estoy usando para salir del paso es que otra aplicacion borre el archivo, pero no me gusta y crea huecos de seguridad que no debo tener.

Gracias.

marcoszorrilla 27-09-2003 14:25:48

Haz la prueba con esta información, que yo reconozco que no he comprobado si funciona o no, de paso si te sirve nos lo dices, para añadirle la información de que funciona.

Under Win32, unless you are running from a removable drive, you
cannot delete a running executable.

You can have Windows delete the executable the next time Windows is
ran by adding an entry to the RunOnce key in the Windows registry under:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce

You can name the key anything you like, and specify a command line to
another executable or to a dos command passed to command.com.

Example:
Código:

uses
  Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;

begin
  reg := TRegistry.Create;

  with reg do begin
    RootKey := HKEY_LOCAL_MACHINE;
    LazyWrite := false;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', false);
    WriteString('Delete Me!','command.com /c del FILENAME.EXT');
    CloseKey;
    free;
  end;
end;

Un Saludo.

brandolin 27-09-2003 14:41:27

Sres. funcionar funciona... pero el problema es que hay que reiniciar la pc para que se elimine lo que queres borrar.

Es un buen método... a partir de este trataremos de mejorarlo y vemos.

Gracias. por todo

marcoszorrilla 27-09-2003 14:42:45

Muy bien muchas gracias por la noticia, lo anotaré en mi base de datos como truco que funciona.

Un Saludo.

Julià T. 27-09-2003 21:18:37

puedes crear un fichero bat que se suicide solo

ex: borrar.bat
Cita:

delete fichero.exe
..... si crees que va a tardar mucho en cerrarse
delete fichero.exe
delete borrar.bat


La franja horaria es GMT +2. Ahora son las 08:39:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi