如何作到安装程序完毕后,快捷方式放到桌面上?,如果不用工具(InstallShield Express)做,用代码如何实现呢?

在桌面上创建快捷方式：用到两个API函数
SHGetSpecialFolderLocation,SHGetPathFromIDList;在 uses 中加入： ShlObj,ActiveX,ComObj,Registy,StdCtrls;
procedure TForm1.Button1Click(Sender:TObject);
var tmpObject :Iunknown;
    tmpSlink: IShellLink;
    tmpPFile: IPersistFile;
    PIDL: PItemIDList;
    StartupDirectory: array[0..MAX_PATH] of char;
    StartupFilename: string;
    LinkFilename: WideString;
begin
  StartupFilename:='c:\windows\notepad.exe'; // 为记事本创建快捷方式；
  tmpObject:=CreateComObject(CLSID_ShellLink);
  tmpSLink:=tmpObject as IShellLink;
  tmpPFile:=tmpObject as IPersistFile;
  tmpSlink.SetPath(pchar(StartupFilename));
  tmpSlink.SetWorkingDirectory(pchar(ExtractFilePath(StartupFilename)));
  SHGetSpecialFolderLocation(0,CSIDL_DesktopDirectory,PIDL);
  SHGetPathFromIDList(PIDL,StartupDirectory);
  LinkFilename:=StartupDirectory+'\记事本.lnk';
  tmpPFile.Save(pWchar(linkFilename),false);
end;