Как поместить программу в автозагрузку

[Terran]

Что бы не засорять форум и не мучить }{oт@бь)ч, вот нписал по быстренькому кодеГ:

Uses
   Registry;
//Пропись программы в автозагрузку
Procedure TForm1.Button1Click(Sender: TObject);
Var
Reg: TRegistry;
Begin
Reg:=TRegistry.Create;
Begin
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
Reg.WriteString('Proga',Application.ExeName);
Reg.Free;
End;
End;
//Удаление программы из автозагрузки
Procedure TForm1.Button2Click(Sender: TObject);
Var
Reg: TRegistry;
Begin
Reg:=TRegistry.Create;
Begin
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
Reg.DeleteValue('Proga');
Reg.Free;
End;
End;

}{oт@бь)ч, при удалении параметра путь к проге не требуется.

[}{oт@бь)ч]

Спасибо вам огромное,побольше бы таких людей на форуме)

[goblinyara]

}{oт@бь)ч, любой из отписавшихся в теме мог бы сразу вам написать полный код... Но все хотели поробовать заставить вас хоть чуточку самому подумать... Потому что программирование - это творческий процесс, тут думать надо.... Ну а если просто тупо вставлять куски кода, которые вам разжевали, это уже какое-то прогЛаммерство, извиняюсь за выражение...

[Gorychev]

Внизу страницы в "Похожих темах" все описано, тема жевана, пережевана...

От себя добавлю:
Лучше юзать HKEY_CURRENT_USER вместо HKEY_LOCAL_MACHINE, т.к. в HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\Run пускают только с правами админа, если прогу запустит юзер то запись в реестр не произойдет(как и др. операций). Просто не пустят и все.