shortcut好像有这个属性吧??

function CreateLink(filepath: string; linkName: string): boolean; //
var
  tmpObject: IUnknown;
  tmpSLink: IShellLink;
  tmpPFile: IPersistFile;
  PIDL: PItemIDList;
  StartupDirectory: array[0..MAX_PATH] of Char;
  StartupFilename: string;
  LinkFilename: WideString;
begin
  StartupFilename := filepath;
  tmpObject := CreateComObject(CLSID_ShellLink); //创建建立快捷方式的外壳扩展
  tmpSLink := tmpObject as IShellLink; //取得接口
  tmpPFile := tmpObject as IPersistFile; //用来储存*.lnk文件的接口
  tmpSLink.SetPath(pChar(StartupFilename)); //设定notepad.exe所在路径
  tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename))); //设定工作目录
  SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL); //获得桌面的Itemidlist
  SHGetPathFromIDList(PIDL, StartupDirectory); //获得桌面路径
  LinkName := '\' + 'MyNotepad.lnk';
  LinkFilename := StartupDirectory + linkName;
  tmpPFile.Save(pWChar(LinkFilename), FALSE); //保存*.lnk文件

end;