Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.07.2010, 10:49   #1
timyr1997
Пользователь
 
Регистрация: 10.06.2010
Сообщений: 37
По умолчанию Авто запуск программы

При нажатии на флажок

Авто запуск программы

То при в ключение компа прога автоматом включается, а если отключили фложок то не запускается

Заранее спасибо
timyr1997 вне форума Ответить с цитированием
Старый 05.07.2010, 11:00   #2
Johnson
кривокодер ;)
Форумчанин
 
Аватар для Johnson
 
Регистрация: 20.06.2008
Сообщений: 707
По умолчанию

Вопроса не вижу, но воспользуюсь даром телепата и попробую ответить

Код:
uses Registry;
............................
procedure TMainForm.CheckBox1Click(Sender: TObject);
var Reg:TRegistry;
begin
    Reg:=TRegIniFile.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('Software',true);
    Reg.OpenKey('Microsoft',true);
    Reg.OpenKey('Windows',true);
    Reg.OpenKey('CurrentVersion',true);
    Reg.OpenKey('Run',true);
  if CheckBox1.Checked then begin
    Reg.WriteString('MyProga',Application.ExeName);
  end else begin
    Reg.DeleteKey('MyProga')
  end;
    Reg.CloseKey;
    Reg.Free;
end;
"А как написать праграму?, "ришыти задачьку очинь нада" ©с форума. Жить становится интереснее, жить становится веселее...
{Быть или не быть} {Неуспешный суицид}

Последний раз редактировалось Johnson; 05.07.2010 в 11:05.
Johnson вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Авто запуск диска. Lunex.08 Свободное общение 11 11.03.2010 12:06
Как 3делать авто-обновление через интернет или локальные сети, для своей программы? Человек_Борща Общие вопросы Delphi 5 09.03.2010 10:25
Авто запуск Программы Rebel123 Общие вопросы Delphi 4 24.08.2009 17:19
Запуск программы на выполнение из другой программы. ViNcHeStEr Паскаль, Turbo Pascal, PascalABC.NET 6 18.06.2008 14:33
Авто удаление программы DartMrakkk Win Api 14 11.06.2008 02:13