在Delphi中操作快捷方式

   在Delphi中操作快捷方式

  快捷方式减少了系统的重复文件，是快速启动程序或打开文件或文件夹的方法，快捷方式对经常使用的程序、文件和文件夹非常有用。在Windows系统中，充斥着大量的快捷方式，那么如何操作这些快捷方式就是一个很头疼的问题，在Windows的编程中，无疑会经常碰到操作快捷方式文件的问题，例如为程序创建快捷方式，修改程序的快捷方式等等。为了操作快捷方式，本人封装了两个函数，而且给出了一个详细的例子。

1.         快捷方式文件的基本信息

  快捷方式包含的信息有：目标文件名、程序运行时的参数、快捷键、运行窗口的状态、描述、工作目录（起始位置）、图标文件名和图标索引等等。我们在操作快捷方式时，就要考虑到这些信息。

2.         数据结构

  为了方便快捷地进行操作，有必要定义一个数据结构，以便在函数调用时传递必要的信息：

const

CCH_MAXNAME=255;              //描述的缓冲区的大小

LNK_RUN_MIN=7;                 //运行时最小化

LNK_RUN_MAX=3;                //运行是最大化

LNK_RUN_NORMAL=1;            //正常窗口

type LINK_FILE_INFO=record

         FileName:array[0..MAX_PATH] of char;              //目标文件名

         WorkDirectory:array[0..MAX_PATH] of char;          //工作目录或者起始目录

         IconLocation:array[0..MAX_PATH] of char;           //图标文件名

         IconIndex:integer;                                //图标索引

         Arguments:array[0..MAX_PATH] of char;             //程序运行的参数

         Description:array[0..CCH_MAXNAME] of char;       //快捷方式的描述

         ItemIDList:PItemIDList;                           //