Alguns programas precisam ser configurados para iniciar na inicialização, então escrevi uma função para facilitar o uso futuro para sua referência.
Copie o código do código da seguinte forma:
procedimento TMainForm.SetAutoRun(ok: booleano);
var
Reg:TRegistry; //Primeiro defina uma variável Reg do tipo TRegistry;
começar
Reg:=TRegistry.Create;
try //Cria uma nova chave
Reg.RootKey:=HKEY_LOCAL_MACHINE; //Defina a chave raiz para HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',true);//Abrir uma chave
se estiver bem, então comece
Reg.WriteString('SMS Service',ExpandFileName(ParamStr(0))); //Escreve o nome e o valor dos dados na chave Reg.
ShowMessage('Registro realizado com sucesso!');
fim
senão começar
reg.DeleteValue('serviço SMS');
ShowMessage('Excluir com sucesso!')
fim;
Reg.CloseKey; //Chave de fechamento
finalmente
Reg.Livre;
fim;
fim;
exemplo:
SetAutoRun(true); //Inicialização do registro
SetAutoRun(false); //Exclui inicialização