如何用Delphi创建快捷方式

ShellLink.SetArguments(PChar(ProgramArg));// 目标文件参数

ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)))

;//目标文件的工作目录

ShellLink.SetDescription(PChar(Descr));// 对目标文件的描述

FileName := LinkPath;//把文件名转换为WideString类型

AFile.Save(PWChar(FileName), False);//保存快捷方式

finally

OleUninitialize;//关闭OLE库，此函数必须与OleInitialize成对调用

end;

end;

文章来源于领测软件测试网 https://www.ltesting.net/