Как загнать в прогу Автозагрузку? (Делфи)

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Как загнать в прогу Автозагрузку? (Делфи)

Опции темы

Поиск в этой теме

Опции просмотра

Как загнать в прогу Автозагрузку? (Делфи)

14.04.2006, 09:25

Варфоломей

Познающий

Регистрация: 18.02.2006

Сообщений: 50

С нами: 10644467

Репутация: 12

Как загнать в прогу Автозагрузку? (Делфи)

Всем привет!
1) Есть исходник проги (на писана на Делфи), мне надо туда впихнуть код автозагрузки, как мне это сделать? Если можно по подробнее!
или написать код автозагрузки, буду очень рад.
2) - и еще прога будет выселатся по почте!
- а почту скачают с прогой Бат или Outlook Express.
3) Будет работать это прога из папок Бата и Outlook Express-а?

Зарание спасибо!

P.S.: В знак блогодарности от меня "+" к репутации.

𝕏 Twitter Reddit Telegram Копировать ссылку

14.04.2006, 11:01

~~KEZ~~

Banned

Регистрация: 18.05.2005

Сообщений: 1,981

С нами: 11042306

Репутация: 2726

определи GetVersion()/GetVersionEx()
если WinNT - хотя бы так можно
поставь значения параметра Shell в ключе HKLM\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\WINLOGON равным explorer.exe path/to/file
где path/to/file - путь к твоему файлу. его сразу надо скопировать куда-то: CopyFile()
Если никуда не копировать, имя .exe, с которого был построен образ процесса, можно получить: GetModuleFileName( GetModuleHandle( NULL ), szFilename, MAX_PATH );

Для Win9x: добавь
в ключ HKLM\Software\Microsoft\Windows\CurrentVersion\Run/RunOnce/RunServices/RunOnceEx
значение "anystring" = "/path/to/file"

Эти способы сверх ламерские. Когда выкинешь делфи в окно, расскажу как делать что-то по серьезнее (если к тому времени буду жив).

14.04.2006, 11:03

Brun

Участник форума

Регистрация: 21.03.2006

Сообщений: 117

С нами: 10600003

Репутация: 137

Код:

procedure StartFromRegistry(appName,appPath:string);
var

reg: TRegistry;
begin

reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
true{canCreate});
reg.WriteString(appname,appPath);
reg.CloseKey;
reg.free;
end;

+ добавить модуль Registry
если что не ясно спрашивай

14.04.2006, 12:06

Варфоломей

Познающий

Регистрация: 18.02.2006

Сообщений: 50

С нами: 10644467

Репутация: 12

Цитата:

Сообщение от kez

Эти способы сверх ламерские. Когда выкинешь делфи в окно, расскажу как делать что-то по серьезнее (если к тому времени буду жив).

Ты уж давай старайся, пробивайся.
Старайся жить!
Я верью в тебя!
А за совет спасибо!
А делфи скоро полетит!

14.04.2006, 12:08

Варфоломей

Познающий

Регистрация: 18.02.2006

Сообщений: 50

С нами: 10644467

Репутация: 12

Цитата:

Сообщение от Brun

если что не ясно спрашивай

скоро спрошу!
спасибо за совет!

16.04.2006, 19:25

asm33

Познающий

Регистрация: 19.01.2006

Сообщений: 58

С нами: 10687402

Репутация: 6

в журнале ХАКЕР 82-84 (точно не помню) публиковались различные способы автозагрузки программ

16.04.2006, 21:55

~~Mertvii-Listopad~~

Banned

Регистрация: 17.03.2006

Сообщений: 110

С нами: 10605407

Репутация: -15

Меня тоже это интересует.. Но мне надо так для общего развития..

19.04.2006, 09:39

Варфоломей

Познающий

Регистрация: 18.02.2006

Сообщений: 50

С нами: 10644467

Репутация: 12

Всем спасибо тема Закрыта

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Открытое письмо журналу "Хакер"	TheFile	Болталка	34	31.01.2009 21:03
Как стать хакером!	foreva	Болталка	19	12.12.2007 00:12
Как своими руками превратить блок питания в обогреватель	dinar_007	"Железо"	3	14.04.2006 22:26

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход