Tema: Auto borrado
Ver Mensaje Individual
  #4  
Antiguo 27-09-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
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.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita