AFile := AnObj as IPersistFile;//强制转换为文件接口
//设置快捷方式属性，此处只设置了几个常用的属性
ShellLink.SetPath(PChar(ProgramPath)); // 快捷方式的目标文件，一般为可执行文件
ShellLink.SetArguments(PChar(ProgramArg));// 目标文件参数
ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)));//目标文件的工作目录
ShellLink.SetDescription(PChar(Descr));// 对目标文件的描述
ShellLink.SetIconLocation(PChar(IconPath),0);
FileName := LinkPath;//把文件名转换为WideString类型
AFile.Save(PWChar(FileName), False);//保存快捷方式
finally
OleUninitialize;//关闭OLE库，此函数必须与OleInitialize成对调用
end;
end;
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
