我要制作自己的安装程序，如何在程序中设置启动快捷方式?

Question

1.如何设置启动快捷方式?
2.如何取得"[当前WINDOWS系统盘]\Documents and Settings\All Users\「开始」菜单\程序\启动"目录？
如：D:\Documents and Settings\All Users\「开始」菜单\程序\启动
而且适用于任何语言操作系统。

Answer 1

http://www.china-askpro.com/msg4/qa60.shtml
/////////////
这篇文章教你如何建快捷方式...

Answer 2

用SHELL.APPLICATION吧，好像有个GETSPECIALFOLDER方法，应该能帮你。自己查一下资料

Answer 3

1  
uses ActiveX,ShlObj,ComObj;procedure TForm1.Button1Click(Sender: TObject);
var SL:IShellLink;
    PF:IPersistFile;
    LinkName:WideString;
begin
  OleCheck(CoCreateInstance(CLSID_SHELLLINK,nil,CLSCTX_INPROC_SERVER,IShellLink,SL));
  PF:=SL as IPersistFile;
  OleCheck(SL.SetPath('e:\1.exe'));
  LinkName:='c:\快捷方式.lnk';
  PF.Save(PWideChar(LinkName),True);
end;2 
procedure TForm1.Button2Click(Sender: TObject);
var path:array[0..255]of char;
begin
  SHGetSpecialFolderPath(0,path,CSIDL_STARTUP,True);
  ShowMessage(path);
end;