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

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

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

         HotKey:word;                                   //快捷键

     end;

3.         函数

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

要注意的是,需要在Uses部分添加comobj,activex,shlobj这三个单元,但是在本文例子中因为要转化热键为文本和使用WindowsAPI 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部分的ofNoDereferenceLinkstrueFilter属性为lnk file|*.lnk;然后为Button1Button2Button3分别添加如下代码(注意修改相应的文件名称和路径):

procedure TForm1.Button1Click(Sender: TObject);

var

info:LINK_FILE_INFO;

begin

if opendialog1.Execute then

 if LinkFileInfo(opendialog1.FileName,info) then

  begin  showmessage('FileName:'+info.filename+#13+'Description:'+info.Description+#13+'IconFilename:'+info.IconLocation+','+inttostr(info.IconIndex)+#13+'WorkDir:'+info.WorkDirectory+#13+'Arguments:'+info.Arguments+#13+'ShorCuts:'+shortcuttostring(info.HotKey)+#13+'WindowState:'+inttostr(info.ShowState)+#13+'ItemIDList:('+inttostr(info.itemidlist.mkid.cb)+',('+inttostr(info.itemidlist.mkid.abid[0])+'))');

  info.WorkDirectory:=edit1.text;

linkfileinfo(opendialog1.filename,info,true);

  end;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

shellexecute(handle,'open','start.exe','c:/windows/desktop/aaa.lnk','',sw_hide);

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var

info:LINK_FILE_INFO;

begin

strpcopy(info.filename,paramstr(0));      //快捷方式的目标文件名

info.Arguments:='/paramstr';            //设置程序运行的参数

info.Description:='Test For Link File';     //描述

info.HotKey:=0;                      //没有热键

info.IconIndex:=0;                    //第一个图标

info.IconLocation:='';                  //设置图标文件为本身

info.RelativePath:='windows';           //相对路径

info.ShowState:=LNK_RUN_MAX;           //显示最大化窗口

info.ItemIDList:=nil;          //保留未用,可以不设置

strpcopy(info.WorkDirectory,extractfilepath(paramstr(0))); //设置工作目录

createLinkFile(info,'c:/windows/desktop/project.lnk');   //建立快捷方式

end;

5.         快捷方式的运行

  有两种方法:

  第一种比较简单,直接调用即可,但是受到一些制约系统中必须存在start.exe文件:

ShellExecute(handle,'open','start.exe','c:/windows/desktop/aaa.lnk','',sw_hide);

  第二种就是取得LNK的信息之后用ShellExecute进行调用!为简单起见,不给出详细的例子了。

  以上程序在Delphi 5.0+Windows 98下通过。如果有什么意见和建议,欢迎来信讨论:

E_Mail:Kingron@163.net

  • 0
    点赞
  • 1
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
<p style="color:#666666;"> <span style="font-size:14px;">本门课程重实战,将基础知识拆解到项目里,让你项目情境里学知识。</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">这样的学习方式能让你保持兴趣、充满动力,时刻知道学的东西能用哪、能怎么用。</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">平时不明白的知识点,放项目里去理解就恍然大悟了。</span> </p> <p style="color:#666666;"> <span></span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>一、融汇贯通</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">本视频采用了前后端分离的开发模式,前端使用Vue.js+Element UI实现了Web页面的呈现,后端使用Python 的Django框架实现了数据访问的接口,前端通过Axios访问后端接口获得数据。学习完本章节后,真正理解前后端的各自承担的工作。</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>二、贴近实战</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">本系列课程为练手项目实战:学生管理系统v4.0的开发,项目包含了如下几个内容:项目的总体介绍、基本功能的演示、Vuejs的初始化、Element UI的使用、Django实现针对数据的增删改查的接口、Vuejs实现前端增删改查的调用、实现文件的上传、实现表格的分页、实现导出数据到Excel、实现通过Excel导入数据、实现针对表格的批量化操作等等,所有的功能都通过演示完成、贴近了实战</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>三、课程亮点</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">本案例,最大的亮点于前后端做了分离,真正理解前后端的各自承担的工作。前端如何和后端交互</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>适合人群:</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">1、有Python语言基础、web前端基础,想要深入学习Python Web框架的朋友;</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">2、有Django基础,但是想学习企业级项目实战的朋友;</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">3、有MySQL数据库基础的朋友</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="font-size:14px;"><img alt="" src="https://img-bss.csdnimg.cn/202009070752197496.png" /><br /> </span> </p> <p style="color:#666666;"> <span style="font-size:14px;"><br /> </span> </p>
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值