如何将程序在每次开机后自运行(50分)

希望第一次执行程序后下次开机就能自运行
我希望通过程序实现
而不是手工将执行程序的快捷方式放到启动栏里来实现

在程序中修改注册表不就行了吗？！

这个简单。看源码：
procedure TForm1.Formshow(Sender: TObject);
begin
; with TRegistry.Create do
; begin
; try
; ; RootKey := HKEY_LOCAL_MACHINE;
; ; if OpenKey( '/Software/Microsoft/Windows/CurrentVersion/Run', true) then
; ; if not ValueExists('syspler') then
; ; begin
; ; ; writestring( 'syspler',Pchar(ExtractFileDir(Application.Exename)+(Application.exename)));
; ; end;
; finally
; ;free;
; end;
; end;
end;

Application.exename ; //得到程序名
ExtractFileDir(Application.Exename）//得到程序所在的路径。

关注

写入注册表的run中。
如shiner的例子。

1）加入开始菜单的启动组
2）加入注册表的Run或者RunServices主键
3）Win.ini的[Windows]Load
4）System.ini的[Boot]Shell
5）加入Wininit.ini

多人接受答案了。