快捷方式不过是个“标签”文件,管理WINDOWS桌面的快捷方式可以管理 c:\windows\desktop\ 下的文件。新建快捷方式请参看 Delphi 附带的“Win32 Developer's References”中的“Creating a Shortcut to a File”专题。
解决方案 »
- 打算让用户用软件通过网络到服务器验证,验证通过才可以用程序,怎么做好?
- 利用SQL脚本创建数据库及表、存储过程等的问题!急!!
- delphi中调用excel
- 请问哪位DX可以给个既可以以NTService运行,也可以作为普通应用程序运行的例子?
- 建有一QQ群2044725.为Delphi志同道合的朋友提供个交流空间,有兴趣的可以进来交流,此群为永久固定群,还有15个空位
- 类型转换出错,大家指点一下,很简单的问题!
- 大家觉得李维的ado+mts+com+一书怎么样?
- 插入一条记录时抛出Einvalidop异常,什么原因?(在线等待)
- 如何在dbgrid中动态的显示不同的字段??数据集为adoquery.
- 这样的数据转换,如何实现?
- 请帮我写一个小程序,要求如下,给五○分
- 总算想出了一个有点难度的问题,答出再加分,40分吧。准程序员(原老菜鸟)的信誉是可靠的,相信我!
删除很好办,首先取得桌面文件夹的位置(不一定在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;
不过,你要对桌面上的系统的文件夹如‘回收站'之类的进行操作的话,必须修改注册表!详细的我就不多说了,有兴趣的话,可以写信给我。