delphi 中如何创建快捷方式

procedure TForm1.CreateUlr;
var
  ShLink: IShellLink;
  PFile: IPersistFile;
  FileName: string;
  WFileName: WideString;
  Reg: TRegIniFile;
  AnObj: IUnknown;
begin//快捷方式的初始化
  AnObj := CreateComObject(CLSID_ShellLink);
  ShLink := AnObj as IShellLink;
  PFile := AnObj as IPersistFile;
  FileName := ParamStr(0);
  ShLink.SetPath(PChar(FileName));
  ShLink.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
   ShLink.SetDescription('软件作者：nciwp'+#13#10+'    公司：常州拨云通讯'+#13#10+'    版本：V1.0');
  Reg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/Explorer');
  WFileName := Reg.ReadString('Shell Folders', 'Desktop', '') + '/' + '常州拨云通讯人事管理系统 V1.0' + '.lnk';
  Reg.Free;
  PFile.Save(PWChar(WFileName), False);
  Reg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/Explorer');
  WFileName := Reg.ReadString('Shell Folders', 'Start Menu', '') + '/' + '常州拨云通讯人事管理系统 V1.0' + '.lnk';
  Reg.Free;
  PFile.Save(PWChar(WFileName), False);
end;