Некоторые программы необходимо настроить на запуск при загрузке, поэтому я написал функцию, облегчающую их использование в будущем.
Скопируйте код кода следующим образом:
процедура TMainForm.SetAutoRun(ок: логическое);
вар
Reg:TRegistry; //Сначала определите переменную Reg типа TRegistry;
начинать
Рег:=TRegistry.Create;
попробуйте //Создаем новый ключ
Reg.RootKey:=HKEY_LOCAL_MACHINE //Установите корневой ключ HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Run',true);//Открыть ключ
если ок, то начинай
Reg.WriteString('SMS Service',ExpandFileName(ParamStr(0))); //Записываем имя и значение данных в ключ Reg.
ShowMessage('Регистрация прошла успешно!');
конец
еще начать
reg.DeleteValue('Служба SMS');
ShowMessage('Удалить успешно!')
конец;
Reg.CloseKey //Клавиша закрытия;
окончательно
Рег.Бесплатно;
конец;
конец;
пример:
SetAutoRun(true); //Запуск регистрации
SetAutoRun(false); //Удалить автозагрузку