Algunos programas deben configurarse para iniciarse al arrancar, por lo que escribí una función para facilitar su uso futuro para su referencia.
Copie el código de código de la siguiente manera:
procedimiento TMainForm.SetAutoRun(ok: booleano);
var
Reg:TRegistry; //Primero define una variable Reg de tipo TRegistry
comenzar
Registro:=TRegistry.Create;
intentar //Crear una nueva clave
Reg.RootKey:=HKEY_LOCAL_MACHINE //Establece la clave raíz en HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',true);//Abrir una clave
si está bien entonces comienza
Reg.WriteString('SMS Service',ExpandFileName(ParamStr(0))); //Escribe el nombre de los datos y el valor de los datos en la clave Reg.
ShowMessage('¡Registro exitoso!');
fin
si no, empezar
reg.DeleteValue('servicio SMS');
ShowMessage('¡Eliminar correctamente!')
fin;
Reg.CloseKey; //Clave de cierre
finalmente
Reg.Libre;
fin;
fin;
ejemplo:
SetAutoRun(true); //Inicio del registro
SetAutoRun(false); //Eliminar inicio