在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;                           //只供读取使用

 

         RelativePath:array[0..255] of char;                   //相对目录，只能设置

 

         ShowState:integer;                               //运行时的窗口状态

 

         HotKey:word;                                   //快捷键

 

     end;

 

3.         函数

 

  1)取得快捷方式或者修改信息函数LinkFileInfo

 

要注意的是，需要在Uses部分添加comobj,activex,shlobj这三个单元，但是在本文例子中因为要转化热键为文本和使用Windows的API ShellExecute，所以还要添加Menus 和ShellApi单元。同时对异常处理不够完美，在使用时大家可以根据实际情况进行修改。

 

说明：函数有三个参数，其中第一个参数为要进行处理的快捷方式的文件名，第二个为LINK_FILE_INFO的结构，用于接收信息或者输入信息对快捷方式进行修改，第三个参数表明是读取快捷方式的信息还是设置快捷方式的信息。函数成功时返回true，否则为false。

 

原型：

 

function LinkFileInfo(const lnkFileName:string;var info:LINK_FILE_INFO;const bSet:boolean):boolean;

 

var

 

 hr:hresult;

 

 psl:IShelllink;

 

 wfd:win32_find_data;

 

 ppf:IPersistFile;

 

 lpw:pwidechar;

 

 buf:pwidechar;

 

begin

 

 result:=false;

 

 getmem(buf,MAX_PATH);

 

 try

 

 if SUCCEEDED(CoInitialize(nil)) then

 

 if (succeeded(cocreateinstance(clsid_shelllink,nil,clsctx_inproc_server,IID_IShellLinkA,psl))) then

 

 begin

 

   hr:=psl.QueryInterface(iPersistFile,ppf);

 

   if succeeded(hr) then

 

   begin

 

     lpw:=stringtowidechar(lnkfilename,buf,MAX_PATH);

 

     hr := ppf.Load(lpw, STGM_READ);

 

     if succeeded(hr) then

 

     begin

 

       hr := psl.Resolve(0, SLR_NO_UI);

 

       if succeeded(hr) then

 

       begin

 

         if bSet then

 

         begin

 

           psl.SetArguments(info.Arguments);

 

           psl.SetDescription(info.Description);

 

           psl.SetHotkey(info.HotKey);

 

           psl.SetIconLocation(info.IconLocation,info.IconIndex);

 

           psl.SetIDList(info.ItemIDList);

 

           psl.SetPath(info.FileName);

 

           psl.SetShowCmd(info.ShowState);

 

           psl.SetRelativePath(info.RelativePath,0);

 

           psl.SetWorkingDirectory(info.WorkDirectory);

 

           result:=succeeded(psl.Resolve(0,SLR_UPDATE));

 

         end

 

         else

 

         begin

 

           psl.GetPath(info.FileName,MAX_PATH, wfd,SLGP_SHORTPATH );

 

           psl.GetIconLocation(info.IconLocation,MAX_PATH,info.IconIndex);

 

           psl.GetWorkingDirectory(info.WorkDirectory,MAX_PATH);

 

           psl.GetDescription(info.Description,CCH_MAXNAME);

 

           psl.GetArguments(info.Arguments,MAX_PATH);

 

           psl.GetHotkey(info.HotKey);

 

           psl.GetIDList(info.ItemIDList);

 

           psl.GetShowCmd(info.ShowState);

 

           result:=true;

 

         end;

 

       end;

 

     end;

 

   end;

 

end;

 

 finally

 

 freemem(buf);

 

 end;

 

end;

 

  2)建立快捷方式函数CreateLinkFile

 

说明：第一个参数为一个LINK_FILE_INFO结构，你必须进行初始化，第二个参数为要保存快捷方式的文件名，默认为相同目录下的同名的LNK文件。

 

原型：

 

function CreateLinkFile(const info:LINK_FILE_INFO;const DestFileName:string=''):boolean;

 

var

 

 anobj:IUnknown;

 

 shlink:IShellLink;

 

 pFile:IPersistFile;

 

 wFileName:widestring;

 

begin

 

 wFileName:=destfilename;

 

 anobj:=CreateComObject(CLSID_SHELLLINK);

 

 shlink:=anobj as IShellLink;

 

 pFile:=anobj as IPersistFile;

 

 shlink.SetPath(info.FileName);

 

 shlink.SetWorkingDirectory(info.WorkDirectory);

 

 shlink.SetDescription(info.Description);

 

 shlink.SetArguments(info.Arguments);

 

 shlink.SetIconLocation(info.IconLocation,info.IconIndex);

 

 shlink.SetHotkey(info.HotKey);

 

 shlink.SetShowCmd(info.ShowState);

 

 shlink.SetRelativePath(info.RelativePath,0);

 

 if DestFileName='' then

 

  wFileName:=ChangeFileExt(info.FileName,'lnk');

 

 result:=succeeded(pFile.Save(pwchar(wFileName),false));

 

end;

 

 

 

3)函数ShortCutToString用于将快捷方式中的热键转化成字符串，以便于显示，Delphi本身没有提供将相关的函数。

 

function ShortCutToString(const HotKey:word):string;

 

var

 

 shift:tshiftstate;

 

begin

 

  shift:=[];

 

  if ((wordrec(HotKey).hi shr 0) and 1)<>0 then

 

     include(shift,ssshift);

 

  if ((wordrec(HotKey).hi shr 1) and 1)<>0 then

 

     include(shift,ssctrl);

 

  if ((wordrec(HotKey).hi shr 2) and 1)<>0 then

 

     include(shift,ssalt);

 

  result:=shortcuttotext(shortcut(wordrec(hotkey).lo,shift));

 

end;

 

 

 

4.         调用实例：

 

  新建一个Application，在窗体上放置一个OpenDialog，三个Button，一个Edit，设置OpenDialog的属性Option部分的ofNoDereferenceLinks为true，Filter属性为lnk file|*.lnk；然后为Button1、Button2和Button3分别添加如下代码（注意修改相应的文件名称和路径）：

 

procedure TForm1.Button1Click(Sender: TObject);

 

var

 

info:LINK_FILE_INFO;

 

begin

 

if opendialog1.Execute then

&