Форум АНТИЧАТ - Как загнать в прогу Автозагрузку? (Делфи)

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Как загнать в прогу Автозагрузку? (Делфи) (https://forum.antichat.xyz/showthread.php?t=17669)

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

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

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

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

определи 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"

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

Код:

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
если что не ясно спрашивай

Цитата:

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

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

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

Цитата:

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

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

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

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

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

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