uses
Windows , ComObj , ShlObj , ActiveX;
{
函数功能:创建指定文件的快捷方式
TargetFile : 快捷方式指向的文件或目录
CreateAt : 创建的快捷方式保存路径
函数返回True表示操作成功,False表示失败
}
function CreateShortCut(TargetFile , CreateAt : string ) : Boolean ;
const
Windows , ComObj , ShlObj , ActiveX;
{
函数功能:创建指定文件的快捷方式
TargetFile : 快捷方式指向的文件或目录
CreateAt : 创建的快捷方式保存路径
函数返回True表示操作成功,False表示失败
}
function CreateShortCut(TargetFile , CreateAt : string ) : Boolean ;
const