29.12.2024
| Главная | Поиск | Регистрация | Профиль | Вход | Выход |
Реклама
Реклама
Интересное
Главная » Статьи » Программирование на Делфи » Программирование на Делфи

Автозагрузка

Решил написать КАК сделать програмно так, чтобы при загрузке компа загружалась твоя прога.
(Пишу это потому, как сам давненько искал подобную статью, но к сожалению находил, но все они почемуто не работали...).
И так, начнем, о5-же писать будем в Delphi.
Чтобы прога загружалась при загрузке компа, надо"изменить реестр".
Вот ключи в реестре, где обычно "автозапускаются" проги:

HKEY_CURRENT_USERSoftware MicrosoftWindowsCurrentVersionRun
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunServices
HKEY_USERS.DEFAULTSoftwareMicrosoftWindowsCurrentVersionRun

НАПОМНЮ, чтобы зайти в реестр надо зайти: Пуск-Выполнить-regedit
или regedit.exe и нажать Enter.
Также список автозапускающихся прог можно увидеть в "msconfig'e".
Для этого: Пуск-Выполнить-msconfig-автозагрузка.

НАПОМИНАЮ!!!
НЕ удаляйте в мсконфиге программ, которые вы считаете вам не нужными!!!
Удалять конечно можно, но не советую.

И так, чтобы прога запустилась создадим в делфи новую форму, и в онсрейте (FormCreate(Sender: TObject);) этой формы пишем следующий код:

procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
path: String;
begin
path:=Application.ExeName;
reg:=Tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if(reg.OpenKey('SoftwareMicrosoftWindows' + 'CurrentVersionRun', True)) then begin
reg.WriteString('Joker', path);
reg.CloseKey;
reg.Free;
end;
end;
end.

НО обязательно в Uses добавить запись: registry!!!!
uses
Windows, ..., Registry;

Ну а дальше можете писать то, что вам нужно...
Восновном автозагрузка нужна для вирусов, троянов и т.д., но можно ее использовать и более нужной и "неопасной" целью, например напишите "себе приветствие с мелким вирусиком", напрмер если за компом не вы (не владелец компа), то можно написать прогу которая через 30 сек. (если не кто неввел пароль) загружает мелкий вирусик, чтобы комп просто завис и не более того...).

П.С. если вам нужна прога-приветствие, то пишите в коменты, я ее добавлю, кому надо, или же на Email 'ы.

Email 'ы:
1)azzik2222@ya.ru ;
2)v1s@xaker.ru ;

о5 же, это моя всего то 2 статья, несудите строго.
И скажем "НЕновечки" просто в коменты нечего не пишите, я понимаю, что вы это должны и так знать... .

V1S
Категория: Программирование на Делфи | Добавил: MalCer (30.07.2009)
Просмотров: 416 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Реклама
Кабинет

Читать ЛС ()

Гость, мы рады вас видеть. Пожалуйста зарегистрируйтесь или авторизуйтесь!



Фраза дня:
Кто с нами

Сегодня были:
Статистика
Партнеры
Graffiti Decorations(R) Studio (TM) Site Promoter Mnogo-softa.net.ru-Софт,срипты,шаблоны и др. MEGA-ToP-ТОП раскрутка раскрутка сайтов. Рейтинг лучших сайтов
описание