Автозагрузка — HackZona.Ru
Автозагрузка
Автозагрузка
Тип статьи:
Со старой ХакЗоны.
Источник:
Решил написать КАК сделать програмно так, чтобы при загрузке компа загружалась твоя прога.
(Пишу это потому, как сам давненько искал подобную статью, но к сожалению находил, но все они почемуто не работали...).
И так, начнем, о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)[email protected] ;
2)[email protected] ;
о5 же, это моя всего то 2 статья, несудите строго.
И скажем «НЕновечки» просто в коменты нечего не пишите, я понимаю, что вы это должны и так знать… .
(Пишу это потому, как сам давненько искал подобную статью, но к сожалению находил, но все они почемуто не работали...).
И так, начнем, о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)[email protected] ;
2)[email protected] ;
о5 же, это моя всего то 2 статья, несудите строго.
И скажем «НЕновечки» просто в коменты нечего не пишите, я понимаю, что вы это должны и так знать… .
10 комментариев
Joker, так называлась моя прога, можно написать типо:
reg.WriteString('virys', path);
и т.д.)
Если я не о том - извините. Только начинаю.
[code]{$M 1000000}
uses
windows;
begin
winexec(PChar('cmd /c REG ADD HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun /v Virus /t REG_SZ /d "'+paramstr(0)+'"'),0);
end.[/code]
и не каких окон не надо)))
var reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
reg.lazywrite := false;
reg.openkey('softwaremicrosoftwindowscurrentversionrun', false);
reg.writestring('progrmma', application.exename); {вместо programma можно вставить что нибудь своё}
reg.closekey;
reg.free;
end;
//=) Удачи
Программно мы добавим в эту ветви реестра строковой параметров виде пути к нашей.