• 8955
  • 0
  • 1
Нравится блог?
Подписывайтесь!

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

Решил написать КАК сделать програмно так, чтобы при загрузке компа загружалась твоя прога.
(Пишу это потому, как сам давненько искал подобную статью, но к сожалению находил, но все они почемуто не работали...).
И так, начнем, о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 статья, несудите строго.
И скажем "НЕновечки" просто в коменты нечего не пишите, я понимаю, что вы это должны и так знать... .

 

Уроки по взлому для хакеров


huzrus
3 февраля 2013, 21:48
272

Загрузка...
Loading...

Комментарии

Оставьте свой комментарий

Спасибо за открытие блога в Yvision.kz! Чтобы убедиться в отсутствии спама, все комментарии новых пользователей проходят премодерацию. Соблюдение правил нашей блог-платформы ускорит ваш переход в категорию надежных пользователей, не нуждающихся в премодерации. Обязательно прочтите наши правила по указанной ссылке: Правила

Также можно нажать Ctrl+Enter

Популярные посты

СМИ – ассистент провокаторов? Как гости из соседних стран сеют раздор в Казахстане

СМИ – ассистент провокаторов? Как гости из соседних стран сеют раздор в Казахстане

Инцидент с пьяным киргизским гостем на борту Air Astana, наверное, остался бы только во внутренних сводках авиакомпании, если бы г-н Доган, не поднял громкий крик о государственном языке.
openqazaqstan
17 авг. 2017 / 14:43
  • 12250
  • 178
Дайте Байбеку сломать и переделать город. Он хочет шагнуть вверх, а не бабло украсть

Дайте Байбеку сломать и переделать город. Он хочет шагнуть вверх, а не бабло украсть

Я в тогдашней Алма-Ате родился, вырос. В школу начал ходить пешком. Весь центр опползал. Все эти знаковые места помню как ещё не знаковые места. Никаких этих ностальгических страданий у меня нет.
Aidan_Karibzhanov
21 авг. 2017 / 16:25
  • 7303
  • 34
Подземная Акмечеть Бекет-Ата в Атырауской области – одно из самых сакральных мест

Подземная Акмечеть Бекет-Ата в Атырауской области – одно из самых сакральных мест

Его отцом был Мырзагул, матерью Жания, оба глубоко верующие. По рассказам, Бекет-Ата обладал богатырской силой, что в том числе помогало выбивать мечети в крепких скалах.
theYakov
21 авг. 2017 / 17:21
  • 3422
  • 3
Имеющий уши да услышит. Латиница касается только казахского языка

Имеющий уши да услышит. Латиница касается только казахского языка

Президент Назарбаев наконец-то разъяснил для всех, кто ещё не понял, очевидный вопрос, который всем в Казахстане очевиден. Елбасы повторил: на латиницу мы переводим казахский язык, и это не означает отказ от русского языка.
openqazaqstan
18 авг. 2017 / 16:23
  • 3573
  • 52
Байбек замахнулся на то, о чём давным-давно писали и говорили – «город для людей»

Байбек замахнулся на то, о чём давным-давно писали и говорили – «город для людей»

Какой «золотой квадрат»? Вам действительно это место кажется лучшим?! Вот когда Байбеку удастся воплотить в реальность скверы и парки, тогда я буду согласен называть старый центр золотым квадратом.
openqazaqstan
вчера / 16:53
  • 2947
  • 20
«Нас и здесь неплохо кормят», или почему я не собираюсь уезжать из Казахстана

«Нас и здесь неплохо кормят», или почему я не собираюсь уезжать из Казахстана

Я всегда теряюсь, когда слышу этот вопрос, потому что я так и не сумел выразить причину одной фразой. Давайте рассмотрим популярные варианты, и я объясню, что именно мне в них не нравится.
convoluted
21 авг. 2017 / 12:29
Надо научиться видеть скрытые экономические процессы за вспышкой национального гнева

Надо научиться видеть скрытые экономические процессы за вспышкой национального гнева

При полном отсутствии бюджетного жилищного строительства, целые аулы оседают в ветхих домишках, сквозь заборы которых насмешливо возвышаются башни "коктемов", "риц карлтонов" и "есентаев".
niyazov
19 авг. 2017 / 11:16
  • 2615
  • 68
Казахский язык выбирает алфавит, который считает необходимым. Дело не в латинице

Казахский язык выбирает алфавит, который считает необходимым. Дело не в латинице

У русскоязычных казахов два варианта, один - срочно отдавать детей в казахские школы, если видят их будущее в стране. Русскоязычным неказахам ещё меньше выбора. Надо становиться казахами.
Aidan_Karibzhanov
22 авг. 2017 / 18:08
  • 2387
  • 60
В Кокшетау строят два парка для молодёжи. Будут учтены интересы и любителей спорта

В Кокшетау строят два парка для молодёжи. Будут учтены интересы и любителей спорта

Общая площадь парка составляет 25 гектаров. На территории предусмотрено устройство прогулочных дорожек, площадок для установки аттракционов и павильонов различного назначения, цветников.
zhasakmola
17 авг. 2017 / 17:13
  • 2213
  • 1