Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 701

Раздел: Delphi » Взаимодействие с Windows
/ вопрос открыт /

Здравствуйте, уважаемые эксперты! Как сделать так, чтобы программа запускалась вмсесте с запуском Windows?

alone Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: alone (статус: Посетитель)
Вопрос отправлен: 4 июля 2007, 15:42
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Виталий Лещенко

Здравствуйте, Гадлевский Олег Вячеславович!

Вариант 1. Положить программу в папку авторагрузки. Можно не саму программу, а только ярлык на нее.
Вприант 2. Прописать программу в ветке реестра HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\
Вариант 3. Написать свой сервис и установить его.

Ответ отправил: Виталий Лещенко (статус: 4-ый класс)
Время отправки: 4 июля 2007, 17:01
Оценка за ответ: 4

Комментарий к оценке: Понятно, спасибо. Хотелось бы не автозагрузкой осуществить запуск, а программными средствами, не могли бы Вы пару ссылочек посоветовать или пример кода привести?

Ответ #2. Отвечает эксперт: min@y™

Я сначала не понял твоего комментария к оценке предыдущего ответа. Сходил покурить и до меня таки дошло :)))

Вот тебе готовенькое, выдрал из своего исходника (см. приложение). Это занесение программы в автозагруз (в реестр) и удаление её оттуда соответственно.

Приложение:
  1. procedure RegistryAutorun;
  2. var
  3. reg: TRegistry;
  4. begin
  5. try
  6. Reg := TRegistry.Create;
  7. try
  8. Reg.RootKey := HKEY_CURRENT_USER;
  9. Reg.LazyWrite := false;
  10. Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',False);
  11.  
  12. Reg.CloseKey;
  13.  
  14.  
  15. finally
  16. Reg.free;
  17. end;
  18. except
  19.  
  20. end;
  21. end;
  22.  
  23. procedure UnRegistryAutorun;
  24. var
  25. reg: TRegistry;
  26. begin
  27. try
  28. Reg := TRegistry.Create;
  29. try
  30. Reg.RootKey := HKEY_CURRENT_USER;
  31. Reg.LazyWrite := false;
  32. Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',False);
  33.  
  34. Reg.CloseKey;
  35.  
  36.  
  37. finally
  38. Reg.free;
  39. end;
  40. except
  41.  
  42. end;
  43. end;


Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 5 июля 2007, 08:24
Оценка за ответ: 5

Комментарий к оценке: Спасибо! )))

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:49
Выполнено за 0.03 сек.