请问如何让程序在“启动”菜单？

Question

谢谢～
另外，安装软件可以吗？

Answer 1

转贴：设计:Zswang
//*)///////Begin SourceusesShlObj, ActiveX, ComObj;function GetSpecialFolderDir(mFolder: Integer): string;{ 返回获取系统文件或系统目录 }(*CSIDL_BITBUCKET * 回收站CSIDL_CONTROLS * 控制面板CSIDL_DESKTOP * 桌面CSIDL_DESKTOPDIRECTORY 桌面目录 //如C:CSIDL_DRIVES * 我的电脑CSIDL_FONTS 字体 //如C:CSIDL_NETHOOD 网上邻居目录 //如C:CSIDL_NETWORK * 网上邻居CSIDL_PERSONAL 我的文档 //如C:DocumentsCSIDL_PRINTERS * 打印机CSIDL_PROGRAMS 程序组 //如C:MenuCSIDL_RECENT 最近文档 //如C:CSIDL_SENDTO 发送到 //如C:CSIDL_STARTMENU 开始菜单 //如C:MenuCSIDL_STARTUP 启动 //如C:\u21551启动CSIDL_TEMPLATES 模版 //如C:*)varvItemIDList: PItemIDList;vBuffer: array[0..MAX_PATH] of Char;beginSHGetSpecialFolderLocation(0, mFolder, vItemIDList);SHGetPathFromIDList(vItemIDList, vBuffer); //转换成文件系统的路径Result := vBuffer;end; { GetSpecialFolderDir }function CreateShellLink(mPath: string; mWorkingDirectory: string;mFileName: WideString): Boolean; { 返回创建快捷方式是否成功 }varvShellLink: IShellLink;vPersistFile: IPersistFile;vUnKnown: IUnKnown;beginResult := True;tryvUnKnown := CreateComObject(CLSID_ShellLink);vShellLink := vUnKnown as IShellLink;vPersistFile := vUnKnown as IPersistFile;vShellLink.SetPath(PChar(mPath));vShellLink.SetWorkingDirectory(PChar(mWorkingDirectory));vPersistFile.Save(PWChar(mFileName), False);exceptResult := False;end;end; { CreateShellLink }///////End Source///////Begin Demoprocedure TForm1.Button1Click(Sender: TObject);beginCreateShellLink(ParamStr(0), ExtractFilePath(ParamStr(0)),GetSpecialFolderDir(CSIDL_DESKTOPDIRECTORY) + ' +ChangeFileExt(ExtractFileName(ParamStr(0)), '.lnk'));end;

Answer 2

如果要再程序里面实现,jackie168(三箭齐发)介绍的够详细了
当然用安装程序同样可以实现,简单易用,不额外增加程序负担

Answer 3

创建一个快捷方式到"启动"文件夹不就行了吗?
我的win2000只能创建到桌面，是不是bug?

Answer 4

用wiseInstall打包，可以装到启动菜单吗？

Answer 5

用wiseInstall打包，可以装到启动菜单吗？晕，这你还问什么啊？自己试试不就知道了。

Answer 6

wiseInstall里我没有找到那项呀，是不是无法wise无法弄到启动菜单？