delphi编程创建桌面快捷方式
2014-11-18 10:11
218 查看
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;
相关文章推荐
- delphi编程创建桌面快捷方式
- 用BCB在windows桌面创建快捷方式
- 创建linux桌面快捷方式
- 在ClickOnce应用程序中创建桌面快捷方式
- 为WEB程序创建桌面快捷方式^_^
- ACCESS 中如何用 WSH 创建桌面快捷方式
- 在桌面上自动创建快捷方式
- .NET 应用程序中创建桌面快捷方式
- 在ClickOnce应用程序中创建桌面快捷方式
- Windows CE创建桌面快捷方式
- 用delphi创建桌面快捷方式
- 在Win桌面创建快捷方式
- 创建用以锁定计算机的桌面快捷方式
- winform安装项目如何在桌面创建快捷方式
- [安装部署]如何让用户自己选择是否在桌面创建快捷方式
- 如何在桌面或者开始菜单中创建快捷方式
- 创建锁定桌面快捷方式
- 在Windows Mobile创建桌面快捷方式
- DELPHI创建桌面快捷方式
- 在Windows桌面创建快捷方式