仓库管理软件版1楼: 如何用代码实现程序在电脑开机时随系统一起启动

2楼: 将要启动的程序写到注册表的RUN项下，当系统启动时，该程序就会自动运行。 如管家婆软件价格

3楼: 改动注册表：
将以下三段代码加入，执行，就可以了：
1
procedure writetocuruserrun;
var
reg:tregistry;
begin
reg:=tregistry.create;
try
reg.rootkey:=HKEY_CURRENT_USER;
if reg.openkey(＇＇＼SOFTWARE＼MICROSOFT＼Windows＼CurrentVersion＼run＂,True) then
begin
reg.Writestring(＇＇启动项目名称＇＇,＇＇启动项值＇＇)
end;
finally
reg.closekey;
reg.free;
end;
end;

2
procedure writetolocalmacasapp;
var
reg:tregistry;
begin
reg:=tregistry.create;
try
reg.rootkey:=HKEY_Local_Machine;
if reg.openkey(＇＇＼SOFTWARE＼MICROSOFT＼Windows＼CurrentVersion＼run＂,True) then
begin
reg.Writestring(＇＇启动项目名称＇＇,＇＇启动项值＇＇)

end;
finally
reg.closekey;
reg.free;
end;
end;
3
procedure writetoLocalMacAsserv;
var
reg:tregistry;
begin
reg:=tregistry.create;
try
reg.rootkey:=HKEY_Local_Machine;
if reg.openkey(＇＇＼SOFTWARE＼MICROSOFT＼Windows＼CurrentVersion＼runService＂,True) then
begin
reg.Writestring(＇＇启动项目名称＇＇,＇＇启动项值＇＇)
end;
finally
reg.closekey;
reg.free;
end;
end;

4楼: 原来已有回复，本人删除。

5楼: liyuezb:你好！
请问“启动项值”是啥子意思？请恕我愚鲁。
＇＇启动项目名称＇＇是指application.Title吗？

6楼: 有多种方法的

仓库管理软件版7楼: 我给你的代码是完成修改注册表，把你需要加载的文件放到注册表中去的工作，项目值指的是执行文件的文件路径和文件名，如＂c:＼腾讯＼QQ.exe＂

8楼: 可以用这个函数得到启动项值 Paramstr(0)

9楼: 不错！这个函数挺有用的！

10楼: “启动项目名称”，你可以随便取个名字，
“启动项值”是指你要启动的程序所在的路径，比如 c:＼123＼123.exe

11楼: 可以注册为系统服务吗？

12楼: 安装程序里加个启动组的到你程序的快捷方式
或者写注册表 这不用弄在程序本身里面的吧 如进销存系统课程设计

13楼: 编译出错
告诉我未声明的标识符
各位老大贴一个完整代码好么，小弟谢谢了

仓库管理软件版14楼: 已经解决了[:D][:D][:D]

15楼: 接受答案了.