使用delphi创建和删除快捷方式

在程序开发中，为了方便操作，我们可能经常会需要处理创建快捷方式和删除快捷方式的时侯，但是如何创建和删除呢，这就是这篇文章所要讲述的。

有人可能可能觉得创建比删除简单，其实不然，所需考虑和处理的问题，大致相同，例如权限问题就是一个很需要注意的，如果处理的不好，会出现不成功的现象。

一、创建快捷方式

快捷方式大致分为两种，桌面和启动菜单上的。

（1）桌面快捷方式

       桌面快捷方式和创建一般的文件没有太大区别，主要就是确定桌面的位置，然后新建一个快捷方式的文件或者说是一个*.lnk的文件。

       那么如何获得桌面路径就是问题了：

       获得桌面路径的方法:有通过注册表的还有通过调用api函数的

       通过注册表的：

             存放在 HKEY_CURRENT_USER 根下 ,目录为 :Software\MicroSoft\Windows\CurrentVersion\Explorer可看到在 shell folder 段中存放着上述文件夹所对应的实际物理目录

      通过api函数的：

            调用 shell 函数可以得到相应的目录 ,但是不是所有在 shell folder目录下的文件夹都可以获得。

function GetSpecialFolderDir(folderid: Integer): string;
var
  pidl:pItemIDList;
  buffer:array [ 0..255 ] of char ;
begin
    // 取指定的文件夹项目表 
  SHGetSpecialFolderLocation( appli