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