如何用Delphi创建快捷方式

　　在单元的声明部分加入以下代码：

procedure CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String);

　　其中，ProgramPath是快捷方式的目标文件的全路径(包括文件名和路径);

　　ProgramArg是目标文件的参数;LinkPath是快捷方式的全路径;Descr是对此快捷方式的描述。

　　在单元的实现部分加入以下代码：

procedure CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String);

var

原文转自：http://www.ltesting.net