关于用DELPHI做程序启动的问题

Question

用DELPHI怎么做应用程序的安装程序使之安装后在“开始”菜单中出现相应的选项，并使次应用程序象QQ一样在没次开机时能自动启动，并且在右下脚的工具栏中出现它的图标。
以上问题怎么实现呢？还有调用此图标要用什么API函数以及怎么用呢？
谢谢指教

Answer 1

至于在“开始”菜单中出现相应的选项，你制作安装程序就可以实现。在制作安装程序的时候会有设置选项，“是否建立工作组”（好象是这么写的），我用的上CreateInstall 2000做的。

Answer 2

http://expert.csdn.net/Expert/topic/1062/1062879.xml?temp=.6742823

Answer 3

用DDE创建程序工作组Ddeclient
sGroupName:='';
  sMacro:='[CreateGroup('+sGroupName+')]';{宏}
  strPCopy(szMacro, sMacro);{将宏复制到字符缓冲区}
  DdeClientConv1.ExecuteMacro(szMacro, False);{执行宏}
  sProgIcon:='';{快捷方式命令行}
  sProgDesc:='';{快捷方式描述}
  sMacro:='[AddItem('+sProgIcon+','+sProgDesc+')]';
  StrPCopy(szMacro, sMacro);
  DdeClientConv1.ExecuteMacro(szMacro, False);

Answer 4

编程象注册表写入要自启动程序吧!
具体方法是这样
先在USES 中添加registry
然后可以在form1.create事件中添加代码,
var reg:TRegistry;
begin
reg:=TRegistry.create;
with reg do
begin
rootkey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
   begin
      Reg.WriteString('MyApp',getcurrentdir+'\我的程序.exe');//在这里实现在注册表里添加您需要自启动的程序的完整路径名和程序名;
   end
   else
   showmessage('操作失败');   
   closekey;
   free;
end;

Answer 5

不好意思,更正一下:
var reg:TRegistry;
begin
reg:=TRegistry.create;
with reg do
begin
rootkey:=HKEY_LOCAL_MACHINE;
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
   begin
      WriteString('我的程序',getcurrentdir+'\我的程序.exe');//在这里实现在注册表里添加您需要自启动的程序的完整路径名和程序名;
   end
   else
   showmessage('操作失败');   
   closekey;
end;
reg.free;
end;