创建桌面快捷方式

原创 2007年09月24日 09:12:00
procedure desktopMenu(StartupFilename, lnkname: String);
var
  tmpObject: IUnknown;
  tmpSLink: IShellLink;
  tmpPFile: IPersistFile;
  PIDL: PItemIDList;
  StartupDirectory: array[0..MAX_PATH] of Char;
  LinkFilename: WideString;
  c1:THandle;
begin
  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 + lnkname;
  tmpPFile.Save(pWChar(LinkFilename),FALSE);
  c1 := windows.FindWindowEx(windows.FindWindowEx(windows.FindWindow('Progman','Program Manager'),0,'SHELLDLL_DefView',''),0,'SysListView32','');
  PostMessage(c1,WM_KEYDOWN,VK_F5,0);
  PostMessage(c1,WM_KEYUP,VK_F5,1 shl 31);
end; 

相关文章推荐

创建桌面快捷方式

  • 2013年04月16日 10:06
  • 1.01MB
  • 下载

创建快捷方式到桌面的批处理

  • 2009年05月07日 10:47
  • 478B
  • 下载

Android O(8.0)创建桌面快捷方式

Android O、Android 8.0、版本适配、桌面快捷方式
  • rentee
  • rentee
  • 2017年08月09日 17:18
  • 1777

C#代码创建桌面快捷方式

  • 2013年12月19日 10:27
  • 35KB
  • 下载

Ubuntu16.04 创建桌面快捷方式

一、基本概念Linux 系统中的Desktop Entry 文件以desktop为后缀名。Desktop Entry 文件是 Linux 桌面系统中用于描述程序启动配置信息的文件。 进入/usr/s...

创建桌面快捷方式

  • 2012年06月26日 23:55
  • 3.67MB
  • 下载

创建网页快捷方式到桌面

  • 2014年06月14日 16:16
  • 98KB
  • 下载

iOS App创建桌面快捷方式

资讯 论坛 代码 工具 招聘 CVP 外快 博客new 登录| 注册 iOS开发 Swift App Store研究 产品设...

桌面快捷方式的创建

  • 2015年02月05日 11:12
  • 375B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:创建桌面快捷方式
举报原因:
原因补充:

(最多只允许输入30个字)