Question

delphi 如何创建某程序的快捷方式的方法

delphi 如何创建某程序的快捷方式的方法。想用delphi来操作快捷方式的创建，比如：我要把d:\aa.exe 创建个快捷方式 bb.lnk 到桌面，是如何写代码？
我很新手，没懂你写的这是如何添加 我想要生成 快捷方式 的那个程序的。麻烦指教下···谢谢
或者是假如是要生成本程序的快捷方式，是不是把 startupfilename(paramstr(0)) 这样？

Answer 1

在 uses 引用 shlobj,ActiveX,ComObj

procedure AddLink;
var
tmpObject : IUnknown;
tmpSLink : IShellLink;
tmpPFile : IPersistFile;
PIDL : PItemIDList;
StartupDirectory : array[0..MAX_PATH] of Char;
LinkFilename : WideString;
linkshortname:string;
begin
tmpObject := CreateComObject(CLSID_ShellLink);//创建建立快捷方式的外壳扩展
tmpSLink := tmpObject as IShellLink;//取得接口
tmpPFile := tmpObject as IPersistFile;//用来储存*.lnk文件的接口
tmpSLink.SetPath(pChar(ExtractFilePath(application.exename)+ExtractFileName(Application.ExeName)));//设定nFolder所在路径
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(application.exename)));//设定工作目录
SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);
//获得桌面的Itemidlist
SHGetPathFromIDList(PIDL,StartupDirectory);//获得桌面路径
linkshortname:=Copy(ExtractFileName(Application.ExeName),0,
Length(ExtractFileName(Application.ExeName))-4);
LinkFilename := string(StartupDirectory)+'\'+linkshortname+'.lnk';
tmpPFile.Save(pWChar(LinkFilename),FALSE);//保存*.lnk文件
//showmessage('已经成功添加快捷方式'''+linkshortname+'.lnk''!');
end;

我刚给你改了下. 你试试. 直接调用这个函数就行了！！