不把应用程序放到启动里，怎样做到当机器启动时就运行此应用程序。(50分)

不把应用程序放到启动里，怎样做到当机器启动时就运行此应用程序。

方法一：
var myreg:tregistry;
begin
myreg:=tregistry.Create;
myreg.RootKey:=HKEY_LOCAL_MACHINE;
if myreg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Run',true)then
begin
myreg.WriteString('程序名',程序所在路径'+'/程序名');
myreg.CloseKey;
end;
myreg.Free ;
end;
方法二：
begin
Writeprivateprofilestring('boot','shell','Explorer.exe 你的程序名','c:/windows/system.ini');
end;

学习~~~~~

不把应用程序放到启动里那就放在注册表中:
HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Run下。
或者在win.ini中[windows]段的load='名称'
或者system.ini中的shell=Explorer.exe 名称

好象可以配置 msconfig.exe文件实现。

如果你是做应用系统的话，你可以把他做成服务程序，这是NT，2000下的常用方法/

要是为了做别的用途，那就感染IE吧/

同意macrozeng

打入到注册表中，就可以了
procedure Tfrm_admini.Reg;
var
RegF:TRegistry;
begin
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True);
RegF.WriteString('icq',application.exename);
except
application.MessageBox('注册未成功！','提示',mb_ok+mb_iconinformation);
end;
RegF.CloseKey;
RegF.Free;
end;
procedure Tfrm_admini.DelReg;
var
RegF:TRegistry;
begin
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True);
RegF.DeleteValue('icq');
except
application.MessageBox('注册未成功！','提示',mb_ok+mb_iconinformation);
end;
RegF.CloseKey;
RegF.Free;
end;