Автозапуск проги!

[blackstersl]

сново привет тут я решил закинуть прогу а атозапуск, тоесть, сразу при запуске Windows включалась прога, но не знаю как это сделать!
Поискал по форуме но чтото не один код не работает!
Уважаемые программисты что делать помогите разобратся.

[Terran]

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

сново привет тут я решил закинуть прогу а атозапуск, тоесть, сразу при запуске Windows включалась прога, но не знаю как это сделать!
Поискал по форуме но чтото не один код не работает!
Уважаемые программисты что делать помогите разобратся.

Посмотрите здесь:
http://programmersforum.ru/showthrea...F0%F3%E7%EA%E0

[Gorychev]

Поискал по форуме но чтото не один код не работает!

А здесь смотрели http://programmersforum.ru/showthread.php?t=4867

Код рабочий, если не забыть написать в Uses .., Registry; и убрать пробел

hReg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run'

Или не знаете как вызвать эту процедуру? Пример:

SetAutorun('MyProgram',ParamStr(0),false);

Первый параметр - имя которое будет записано как имя запускаемой программы в реестр, 2 - путь к вашему файлу (в данном случае к екзешнику вашего проэкта), 3 - запускать каждый раз при пуске системы(false) или единожды(true).

Я б еще поменял

hReg.RootKey := HKEY_LOCAL_MACHINE;
на
hReg.RootKey := HKEY_CURRENT_USER;

потому, как в HKEY_LOCAL_MACHINE пускают только с правами админа, если ваше приложение запустит юзер - облом.
Ну или если, так сильно припекло, обязательно всем сразу свою прогу впихнуть в автозапуск, то можно проверять - есть возможность записать в HKEY_LOCAL_MACHINE или нет, если нет, то писать в HKEY_CURRENT_USER(автозапуск только для текущего пользователя).

[Satorin]

Registry \\модуль...




Var   
RegIni:TregIniFile;
Begin
RegIni:=TregIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',True);
RegIni.WriteString('Run','volumedriver.exe',Application.ExeName);
RegIni.Free;
End;