ShellLink编程

大家对桌面的快键方式、开始菜单、程序菜单、快速启动菜单的快键方式,都很熟悉了。

但是各位用编程去实现过吗?最近在弄一个软件时,需要这点功能时,通过找些资料及自己查看源码?

1、包含单元ComObj,ShlObj,ActiveX

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;
      tmpSlink.SetPath(pchar(StartupFilename));
      tmpSlink.SetWorkingDirectory(pchar(ExtractFilePath(StartupFilename)));
      SHGetSpecialFolderLocation(0,CSIDL_DesktopDirectory,PIDL);   //主要是这参数
      SHGetPathFromIDList(PIDL,StartupDirectory);
      LinkFilename:=StartupDirectory+'/OUEmail.lnk';
      tmpPFile.Save(pWchar(linkFilename),false); 

 

CSIDL_STARTUP  启动菜单项

CSIDL_PROGRAMS  程序菜单项

CSIDL_STARTMENU 开始菜单项

CSIDL_DesktopDirectory 桌面项

 

这些定义都在ShlObj单元存在。

 

 

 

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

oushengfen

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值