如何读取快捷方式的信息和生成一个快捷方式？

unit untLnkInfo;

interface

uses Windows, ActiveX, ComObj, ShlObj;

type
  TLINK_FILE_INFO = record
    Filename: array [0 .. MAX_PATH] of Char;      { 目标文件名 }
    WorkDirectory: array [0 .. MAX_PATH] of Char; { 工作目录或者起始目录 }
    IconLocation: array [0 .. MAX_PATH] of Char;  { 图标文件名 }
    IconIndex: Integer;                           { 图标索引 }
    Arguments: array [0 .. MAX_PATH] of Char;     { 程序运行的参数 }
    Description: array [0 .. 255] of Char;        { 快捷方式的描述 }
    ItemIDList: PItemIDList;                      { 只供读取使用 }
    RelativePath: array [0 .. 255] of Char;       { 相对目录，只能设置 }
    ShowState: Integer;                           { 运行时的窗口状态 }
    HotKey: Word;                                 { 快捷键 }
  end;

  { 读取快捷方式信息 }
procedure GetLinkFileInfo(LnkFileName: String; var LnkInfo: TLINK_FILE_INFO);

implementation

{ 读取快捷方式信息 }
procedure GetLinkFileInfo(LnkFileName: String; var LnkInfo: TLINK_FILE_INFO);
var
  LnkObj      : IUnknown;
  ShellPFile  : IPersistFile;
  ShellLink   : IShellLink;
  WideFileName: WideString;
  pfd         : WIN32_FIND_DATA;
begin
  FillChar(LnkInfo, SizeOf(LnkInfo), #0);
  LnkObj       := CreateComObject(CLSID_ShellLink);
  ShellPFile   := LnkObj as IPersistFile;
  ShellLink    := LnkObj as IShellLink;
  WideFileName := LnkFileName;
  ShellPFile.Load(PWideChar(WideFileName), 0);
  ShellLink.GetPath(LnkInfo.Filename, MAX_PATH, pfd, SLGP_UNCPRIORITY);         { 获取快捷方式文件路径 }
  ShellLink.GetWorkingDirectory(LnkInfo.WorkDirectory, MAX_PATH);               { 获取快捷方式工作目录 }
  ShellLink.GetIconLocation(LnkInfo.IconLocation, MAX_PATH, LnkInfo.IconIndex); { 获取快捷方式图标文件，和图标索引 }
  ShellLink.GetArguments(LnkInfo.Arguments, MAX_PATH);                          { 获取快捷方式运行参数 }
  ShellLink.GetDescription(LnkInfo.Arguments, MAX_PATH);                        { 获取快捷方式描述 }
  ShellLink.GetShowCmd(LnkInfo.ShowState);                                      { 获取快捷方式运行方式，1：常规窗体；2：最小化；3：最大化 }
  ShellLink.GetHotkey(LnkInfo.HotKey);                                          { 获取快捷方式快捷键 }
  ShellLink  := nil;
  ShellPFile := nil;
end;

{ 注：
  发现没有，获取都是用 ShellLink.Get...，
  所以，创建，就是ShellLink.Set...了，自己动手写写了。
  这里就不罗嗦了。
}

end.