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