教你如何用Delphi注册快捷方式

1 2 3 下一页

　　这里我们用到了com对象，我要解释一下。com(compent object model)其实是microsoft提出的组件标准，它定义了组件和应用程序之间进行通信的标准，同时提供了组件程序运行时所需要的环境。这是书上讲的，现在我用口头语客串几句。Com可以用不同的语言编可以实现通信的效果，可以把它们看成一些二进制的可执行程序。下面就是注册快捷方式：

　　type
　　ShortcutType = (ST_DESKTOP, ST_SENDTO, ST_QUICKLAUNCH, ST_STARTMENU);//定义一个数据类型

　　procedure CreateShortcut(FileName :string; Description :string;
　　arguements :string; Location :ShortcutType);
　　var
　　cObj :IUnknown;
　　sLink :IShellLink;
　　pFile :IPersistFile;
　　sDir :string;
　　lName :string;
　　spath :string;
　　wFileName :WideString;
　　mReg :TReGIStry;
　　key :string;
　　tmp :string;
　　begin
　　cObj :=CreateComObject(CLSID_ShellLink); //创建COM对象
　　sLink :=cObj as IShellLink; //COM对象转化为IShellLink型接口
　　pFile :=cObj as IPersistFile; //COM对象转化为IPersistFile型接口

　　//获取路径
　　sPath :=ExtractFilePath(FileName);
　　with sLink do begin
　　SetPath(PChar(FileName)); //设置执行文件名
　　SetArguments(PChar(arguements)); //设置执行参数
　　SetDescription(Pchar(Description)); //设置描述信息
　　SetWorkingDirectory(PChar(sPath)); //设置工作路径，即执行程序所在目录
　　end;

　　//获取各快捷方式的实际目录
　　mReg :=TRegistry.Create;
　　with mReg do begin
　　RootKey :=HKEY_CURRENT_USER;

　　key :=REGSTR_PATH_EXPLORER; //Delphi在单元RegStr中定义的常量
　　tmp :=key '\Shell Folders';

上一篇： 字符串分割扩展 SplitEx
下一篇： Delphi学习:2个不错的通配符比较函数

1 2 3 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有