Форма входа

Категории раздела

Мои файлы [12]
Полезности [15]

Поиск

Наш опрос

Оцените мой сайт
Всего ответов: 62

Статистика


Онлайн всего: 2
Гостей: 2
Пользователей: 0




Понедельник, 25.11.2024, 09:55
Приветствую Вас Гость | RSS

Delphiport.ucoz.com

Главная | Регистрация | Вход
Полезные советы


Главная » Файлы » Полезности

Добавление программы в автозапуск
08.11.2011, 01:01

    Для того чтобы добавить программу в автозагрузку, можно воспользоваться следующим кодом... 

  1) В Uses прописываем Registry;

  2) В обработчике событий (OnCreate на форме например) пишем :

var

Reg:Tregistry;

begin

Reg:= Tregistry .Create;

Reg.Rootkey:=HKEY_CURRENT_USER;

Reg.OpenKey('Software', true);

Reg.OpenKey('Microsoft', true);

Reg.OpenKey('Windows', true);

Reg.OpenKey('CurrentVersion', true);

Reg.OpenKey('Run', true);

Reg.WriteString('Proga', Application.ExeName);

Reg.CloseKey;

Reg.Free;

end;

Там где  'Proga' - пишем любое имя одним словом.

Категория: Полезности | Добавил: Sashok
Просмотров: 523 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:

Copyright MyCorp © 2024