delphi編程創建桌面快捷方式

uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl;?
procedure TForm1.N2Click(Sender: TObject);?
var?
tmpObject : IUnknown;?
tmpSLink : IShellLink;?
tmpPFile : IPersistFile;?
PIDL : PItemIDList;?
StartupDirectory : array[0..MAX_PATH] of Char;?
StartupFilename : String;?
LinkFilename : WideString;?
begin?
//創建快捷方式到桌面?
StartupFilename :=Application.ExeName;?
tmpObject := CreateComObject(CLSID_ShellLink);//創建建立快捷方式的外殼擴展?
tmpSLink := tmpObject as IShellLink;//取得接口?
tmpPFile := tmpObject as IPersistFile;//用來儲存*.lnk文件的接口?
tmpSLink.SetPath(pChar(StartupFilename));//設定所在路徑?
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));//設定工作目錄?
SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);//獲得桌面的Itemidlist?
tmpSLink.SetDescription(’我的程序的描述);?
tmpSLink.SetIconLocation(Pchar(StartupFilename),0);?
SHGetPathFromIDList(PIDL,StartupDirectory);//獲得桌面路徑?
LinkFilename := StartupDirectory + ’\我的程序.lnk’;?
tmpPFile.Save(pWChar(LinkFilename),FALSE);//保存*.lnk文件?
end;

轉載于:https://www.cnblogs.com/honeynm/p/4105031.html

總結

以上是生活随笔為你收集整理的delphi编程创建桌面快捷方式的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。