快捷方式不过是个“标签”文件,管理WINDOWS桌面的快捷方式可以管理 c:\windows\desktop\ 下的文件。新建快捷方式请参看 Delphi 附带的“Win32 Developer's References”中的“Creating a Shortcut to a File”专题。

解决方案 »

  1.   

     呵呵,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;
      不过,你要对桌面上的系统的文件夹如‘回收站'之类的进行操作的话,必须修改注册表!详细的我就不多说了,有兴趣的话,可以写信给我。