外壳扩展创建快捷方式和获取快捷方式的目标对象

uses
     Windows,ComObj,ShlObj,ActiveX;

{
      函数功能：创建指定文件的快捷方式
      TargetFile: 快捷方式指向的文件或目录
      CreateAt:      创建的快捷方式保存路径
      函数返回True表示操作成功，False表示失败
}
function CreateShortCut(TargetFile,CreateAt:string):Boolean;
const
     IID_IPersistFile:TGUID = '{0000010B-0000-0000-C000-000000000046}';
var
     intfLink:IShellLink;
     IntfPersist:IPersistFile;
begin
     IntfLink:=CreateComObject(CLSID_ShellLink) as IShellLink;
     Result:=(IntfLink<>nil) and SUCCEEDED(IntfLink.QueryInterface(IID_IPersistFile,IntfPersist))
     and SUCCEEDED(intfLink.SetPath(PAnsiChar(TargetFile))) and
     SUCCEEDED(IntfPersist.Save(PWideChar(WideString(CreateAt)),True));
end;


{
      函数功能：返回指定快捷方式的目标文件
      LinkFile: 快捷方式文件完整路径
      函数返回空字符串时表示失败，否则成功
}

function GetTargetOfShorCut(LinkFile:string):string;
const
     IID_IPersistFile:TGUID = '{0000010B-0000-0000-C000-000000000046}';
var
     intfLink:IShellLink;
     IntfPersist:IPersistFile;
     pfd:_WIN32_FIND_DATA;
     bSuccess:Boolean;
begin
     Result:='';
     IntfLink:=CreateComObject(CLSID_ShellLink) as IShellLink;
     SetString(Result,nil,MAX_PATH);
     {
       Load方法的第二个参数还可以传递STGM_WRITE或STGM_READWRITE，表示对快捷方式信息的访问权限
         STGM_READ：只读 
         STGM_WRITE：只写 
         STGM_READWRITE：读写
       GetPath方法的第三个参数还可以传递SLGP_UNCPRIORITY或SLGP_SHORTPATH，表示返回的目标路径格式
         SLGP_UNCPRIORIT：UNC网络路径
         SLGP_SHORTPATH ：DOS 8.3格式路径
         SLGP_RAWPATH      : 长路径
     }
     bSuccess:=(IntfLink<>nil) and SUCCEEDED(IntfLink.QueryInterface(IID_IPersistFile,IntfPersist))
      and SUCCEEDED(IntfPersist.Load(PWideChar(WideString(LinkFile)),STGM_READ)) and
      SUCCEEDED(intfLink.GetPath(PAnsiChar(Result),MAX_PATH,pfd,SLGP_RAWPATH));
     if not bSuccess then Result:='';
end;

 

除SetPath和GetPath方法外，IShellLink接口的其它方法可以设置或读取快捷方式的其它信息：
GetArguments：获得参数信息 
GetDescription：获得描述信息
GetHotkey：获得快捷键
GetIconLocation：获得图标  
GetIDList：获得快捷方式的目标对象的item identifier list (Windows外壳中的每个对象如文件，目录和打印机等都有唯一的item identifiler list)
GetPath: 获得快捷方式的目标文件或目录的全路径
GetShowCmd：获得快捷方式的运行方式，比如常规窗口，最大化
GetWorkingDirectory：获得工作目录 
Resolve：按照一定的搜索规则试图获得目标对象，即使目标对象已经被删除或移动，重命名
下面是对应信息的设置方法
SetArguments 
SetDescription 
SetHotkey
SetIconLocation
SetIDList
SetPath
SetRelativePat
SetShowCmd
SetWorkingDirectory