如何让程序在系统启动时就运行？

Question

var Reg:Tregistry;
begin
  Reg:=Tregistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey(Software\Microsoft\Windows\CurrentVersion\Run',False);
  Reg.WriteString('sysExplr','d:\SthVCD\SysExplr.EXE');//换成你的
  Reg.CloseKey;
  Reg.Free;
end;

Answer 1

把程序的快捷方式放到
C:\WINDOWS\Start Menu\Programs\启动
就可以了

Answer 2

当然，要先在Uses 中 加 上Registry 单 元

Answer 3

一是写注册表里的Run
  这个方便，但对客户不太方便
二是直接写在启动菜单里

Answer 4

Procedure MakeLink(Filename:string;FileDesc:string);
var
  tmpObject : IUnknown;
  tmpSLink : IShellLink;
  tmpPFile : IPersistFile;
  PIDL : PItemIDList;
  StartupDirectory : array[0..MAX_PATH] of Char;
  LinkFilename : WideString;
  bianliang,Path:string;
begin
  bianliang:='\'+FileDesc+'.lnk';
  tmpObject := CreateComObject(CLSID_ShellLink);//创建建立快捷方式的外壳扩展
  tmpSLink := tmpObject as IShellLink;          //取得接口
  tmpPFile := tmpObject as IPersistFile;        //用来储存*.lnk文件的接口
  tmpSLink.SetPath(pChar(FileName));            //设定 filename 所在路径
  tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(FileName)));    //设定工作目录
  begin
     SHGetSpecialFolderLocation(0,CSIDL_STARTUP,PIDL);      //获得启动中的启动菜单的Itemidlist
     Fillchar(startupdirectory,Max_Path+1,0);
     SHGetPathFromIDList(PIDL,StartupDirectory);               //获得路径
     Path:=StartupDirectory;
     LinkFilename := path + bianliang;
     tmpPFile.Save(pWChar(LinkFilename),FALSE);                //保存*.lnk文件
  End;

Answer 5

我们是在delphi讨论区，当然是要通过程序写出来了，怎么会用“把程序的快捷方式放到 
C:\WINDOWS\Start  Menu\Programs\启动 
就可以了”这种方法呢。
完全同意顶楼意见！