由于我们是通过OLE Interface实现此功能的,因此在程序单元的uses语句中要加入ComObj、ActiveX和ShlObj这三个单元。
在单元的声明部分加入以下代码:
procedure CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String); |
其中,ProgramPath是快捷方式的目标文件的全路径(包括文件名和路径);
ProgramArg是目标文件的参数;LinkPath是快捷方式的全路径;Descr是对此快捷方式的描述。
在单元的实现部分加入以下代码:
procedure CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String); |