Всем привет! 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" Эти способы сверх ламерские. Когда выкинешь делфи в окно, расскажу как делать что-то по серьезнее (если к тому времени буду жив).
Code: 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 если что не ясно спрашивай
Ты уж давай старайся, пробивайся. Старайся жить! Я верью в тебя! А за совет спасибо! А делфи скоро полетит!
