FileName: WideString;
LinkPath:String;
begin
LinkPath:=getDesktopPath()+'\'+linkName;
if UpperCase(ExtractFileExt(LinkPath))<>'.LNK' then //检查扩展名是否正确
begin
raise Exception.Create('快捷方式的扩展名必须是.lnk!');
end;
try
OleInitialize(nil);//初始化OLE库，在使用OLE函数前必须调用初始化
AnObj := CreateComObject(CLSID_ShellLink);//根据给定的ClassID生成一个COM对象，此处是快捷方式
ShellLink := AnObj as IShellLink;//强制转换为快捷方式接口
文章来源于领测软件测试网 https://www.ltesting.net/
