Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
11th
Окт
Добавить программу в автозагрузку
Posted by Chas under Delphi, Пост-обзор
Как настроить автозапуск при включении для программы?
Terran
Что-то не совсем понятен вопрос… Если я всё правильно понял, то вот код для установки и удаления программы из автозагрузки:
Procedure TForm1.N3Click(Sender: TObject);
Var
Reg: TRegistry;
Begin
Try
If N3.CHecked = True Then
Begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
Reg.WriteString('Pro',Application.ExeName);
Reg.Free;
StatusBar1.SimpleText:='Программа установлена в автозагрузку';
End
Else
Begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
Reg.DeleteValue('Pro');
Reg.Free;
StatusBar1.SimpleText:='Программа удалена из автозагрузки';
End;
Except
Reg.Free;
End;
End;P.S. N3 – считайте что это CheckBox.