如何把应用程序的快捷方式放入‘开始’－‘启动’里？

Question

我做了个应用程序，想把它放入‘开始’中的‘启动’栏里，每次起动电脑的时候，它就可以真运行了，请问我应该怎么写代码，在线等，谢谢

Answer 1

写一个程序来修改注册表
var 
   registertemp:tregisry;
begin
   registertemp:=tregistry.create;
with registertemp do
  begin
  rootkey:=HKEY_LOCAL_MACHINE;
  if openkey ('software\microsoft\windows\currentversion\run',true)then
    begin
  writestring(extracfilename(  filename),filename);
end;
else
showmessgae('操作失败');
closekey;
end;