请问:我该如何用程序操纵WINDOWS桌面的快捷方式?

TonyChow 2000-11-13 10:23:00
我想用程序操纵WINDOWS桌面的快捷方式,包括新建快捷方式,删除快捷方式等,反正WINDOWS桌面上的右键菜单对快捷方式的操作都需要实现!
...全文
90 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
skt642 2001-05-31
  • 打赏
  • 举报
回复
89571关注!
Kingron 2001-05-14
  • 打赏
  • 举报
回复
提问者:如要继续讨论请定期提前贴子,如不想讨论请结束贴子。
Kingron 2000-11-14
  • 打赏
  • 举报
回复
呵呵,cake。
删除很好办,首先取得桌面文件夹的位置(不一定在c:\windows\desktop!),然后搜索这个文件夹下的文件,判断是否是.lnk文件,是的话,就可以删除!
添加的话,代码如下:
//usage:
createshortcut('要建立快捷方式的文件名(含路径)','生成的快捷方式的文件名(含路径)','程序的工作目录');
uses comobj,activex,shlobj;

procedure CreateShortCut(const filename,lnkFilename,path:string);
var
anobj:IUnknown;
shlLink:IShellLink;
pFile:Iperisstfile;
wFileName:WideString;
begin
anobj:=CreateComObj(CLSID_SHELLLINK);
shlink:=anobj as IShellLink;
pFile:=anobj as iPerisstfile;
shllink.SetPath(pchar(filename));
shllink.setworkingdirectory(pchar(path));
wFileName:=lnkFilename;
pfile.save(pwchar(wfilename),false);
end;
不过,你要对桌面上的系统的文件夹如‘回收站'之类的进行操作的话,必须修改注册表!详细的我就不多说了,有兴趣的话,可以写信给我。
nononono 2000-11-13
  • 打赏
  • 举报
回复
快捷方式不过是个“标签”文件,管理WINDOWS桌面的快捷方式可以管理 c:\windows\desktop\ 下的文件。新建快捷方式请参看 Delphi 附带的“Win32 Developer's References”中的“Creating a Shortcut to a File”专题。

5,931

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧