Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
Как загнать в прогу Автозагрузку? (Делфи) |
14.04.2006, 09:25
|
|
Познающий
Регистрация: 18.02.2006
Сообщений: 50
Провел на форуме:
48539
Репутация:
12
|
|
Как загнать в прогу Автозагрузку? (Делфи)
Всем привет!
1) Есть исходник проги (на писана на Делфи), мне надо туда впихнуть код автозагрузки, как мне это сделать? Если можно по подробнее!
или написать код автозагрузки, буду очень рад.
2) - и еще прога будет выселатся по почте!
- а почту скачают с прогой Бат или Outlook Express.
3) Будет работать это прога из папок Бата и Outlook Express-а?
Зарание спасибо!
P.S.: В знак блогодарности от меня "+" к репутации.
|
|
|
14.04.2006, 11:01
|
|
Banned
Регистрация: 18.05.2005
Сообщений: 1,981
Провел на форуме:
1941233
Репутация:
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
|
|
Участник форума
Регистрация: 21.03.2006
Сообщений: 117
Провел на форуме:
629074
Репутация:
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
Провел на форуме:
48539
Репутация:
12
|
|
Сообщение от kez
Эти способы сверх ламерские. Когда выкинешь делфи в окно, расскажу как делать что-то по серьезнее (если к тому времени буду жив).
Ты уж давай старайся, пробивайся.
Старайся жить!
Я верью в тебя!
А за совет спасибо!
А делфи скоро полетит! 
|
|
|
|
14.04.2006, 12:08
|
|
Познающий
Регистрация: 18.02.2006
Сообщений: 50
Провел на форуме:
48539
Репутация:
12
|
|
Сообщение от Brun
если что не ясно спрашивай
скоро спрошу!
спасибо за совет!
|
|
|
|
16.04.2006, 19:25
|
|
Познающий
Регистрация: 19.01.2006
Сообщений: 58
Провел на форуме:
108297
Репутация:
6
|
|
в журнале ХАКЕР 82-84 (точно не помню) публиковались различные способы автозагрузки программ
|
|
|
|
16.04.2006, 21:55
|
|
Banned
Регистрация: 17.03.2006
Сообщений: 110
Провел на форуме:
98021
Репутация:
-15
|
|
Меня тоже это интересует.. Но мне надо так для общего развития.. |
|
|
|
19.04.2006, 09:39
|
|
Познающий
Регистрация: 18.02.2006
Сообщений: 50
Провел на форуме:
48539
Репутация:
12
|
|
Всем спасибо тема Закрыта
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
