请问如何往程序组菜单和桌面添加块捷方式(100分)

请问如何往程序组菜单和桌面添加块捷方式,代码怎么写?

请查找以前的帖子，有非常详细的解答！
看到窗口右上方的“全文检索”没有，试试看！

bcb的代码要不要

uses ShlObj, ActiveX, ComObj;
procedure CreateShortCut(SourceFileFullName: string;
DestFileFullName: WideString);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLinkdo
begin
SetPath(PChar(SourceFileFullName));
SetWorkingDirectory(PChar(ExtractFilePath(SourceFileFullName)));
end;
MyPFile.Save(PWChar(DestFileFullName), False);
end;

使用：
CreateShortCut(Application.ExeName, 'c:/windows/desktop/MyProgram.lnk');

学习学习

接受答案了.