如何用Delphi创建快捷方式

OleInitialize(nil);//初始化OLE库，在使用OLE函数前必须调用初始化

AnObj := CreateComObject(CLSID—ShellLink);//根据给定的ClassID生成

一个COM对象，此处是快捷方式

ShellLink := AnObj as IShellLink;//强制转换为快捷方式接口

AFile := AnObj as IPersistFile;//强制转换为文件接口

//设置快捷方式属性，此处只设置了几个常用的属性

ShellLink.SetPath(PChar(ProgramPath)); // 快捷方式的目标文件，一般

为可执行文件

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