Ejecutar una aplicación al arrancar Windows

4510 vistas

Si queremos ejecutar una aplicación cuando Windows inicie sesión, sólo tendremos que añadir una entrada en la clave \Software\Microsoft\Windows\CurrentVersion\Run del Registro de Windows.



delphi
  1. procedure RegWriteRunApp(Path: string);
  2. var
  3. Reg: TRegistry;
  4. begin
  5. Reg := TRegistry.Create;
  6. try
  7.   with Reg do begin
  8.   RootKey := HKEY_CURRENT_USER; // al inicio de sesión de un usuario
  9.   // RootKey := HKEY_LOCAL_MACHINE; // al inicio de sesión de cada usuario
  10.   if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False)
  11.           then WriteString('MiAplicación', Path);
  12.   end;
  13. finally
  14.   Reg.Free;
  15. end;
  16. end;



La clave Run es persistente, es decir, cada vez que arranque Windows se arrancará la aplicación. Si queremos que sólo se ejecute la próxima vez que Windows arranque, tendremos que usar la clave RunOnce.