Delphi编程实现程序快捷方式

★中共河南省济源市委党校，耿百强
源代码网推荐
源代码网推荐 摘要：本文主要介绍了用Delphi编程实现程序的快捷方式的方法，其中主要讨论了Delphi中COM编程的方法、快捷方式的实现方法，并给出了一个实例程序。
源代码网推荐 关键词：Delphi，COM编程，快捷方式
源代码网推荐
源代码网推荐 Windows系统提供了快捷方式来简化用户对应用程序的执行，尽量使得用户不与应用程序的具体位置挂上关系，大大方便了用户的操作。所以，在Windows系统下，大多安装程序一般都提供创建程序组和快捷方式。但，你有没有想过，快捷方式是如何实现的呢？
源代码网推荐 下面，我就和大家来讨论一下关于快捷方式编程实现的原理，并给大家一个具体的示例程序。
源代码网推荐
源代码网推荐 一、 编程原理
源代码网推荐 1、首先找到快捷方式的存放位置，创建程序组。
源代码网推荐 在Windows系统下，所谓的程序组就是文件夹，只是这些文件夹的存放位置比较特殊罢了，一般存放在“D:Documents and SettingsAll Users.WINNT「开始」菜单程序”文件夹（在Windows2000下），你可以打开这个文件夹，是不是可以看到那些以前只能在“开始-程序”中才能看到的项目？！所以，必须首先得到快捷方式的存放位置，要解决这个问题，可以有两种解决方法。
源代码网推荐 第一、通过Windows2000下的一个API函数来实现：

源代码网推荐 HRESULT SHGetSpecialFolderLocation(
源代码网推荐 HWND hwndOwner,
源代码网推荐 int nFolder,
源代码网推荐 LPITEMIDLIST *ppidl
源代码网推荐 );
源代码网推荐 第二、通过注册表来实现，打开注册表，然后依次打开“HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders”，可以找到比如“开始菜单”、“程序”等文件夹的存放位置。
源代码网推荐 明白了程序组就是文件夹，要建立程序组就非常简单了，只要在找到的“程序”这个文件夹的位置中创建一个以“程序组”命名的文件夹就可以了。比如，我们把找到的“程序”所在的文件夹存放在Directory中，而程序组的名称保存在GroupName中，下面的代码可以实现在“程序”文件夹中创建“程序组”：
源代码网推荐 Directory := Reg.ReadString("Programs");
源代码网推荐 SubDir:= Directory "" GroupName;
源代码网推荐 CreateDir(SubDir);
源代码网推荐 一般的应用程序都会通过API函数来实现，在本例中，我们通过第二种方法来实现。
源代码网推荐 2、创建快捷方式
源代码网推荐 解决了前面的两个小问题，我们再来看如何具体实现快捷方式的创建。如果你经常编写程序，可能会想到利用API函数来实现，不幸的是，你在API函数中找不到创建快捷方式的相应函数，因为这个功能需要用COM来实现。一些人可能会对COM编程感到陌生与恐惧，实际上，COM编程并不复杂，你不需要太了解COM就可以很好地使用它。
源代码网推荐 Windows提供了一个COM接口IshellLink，它能够帮助我们创建、修改、删除快捷方式。要使用COM接口提供的功能，必须首先调用CreateCOMObject函数创建一个接口的实例，Delphi提供了创建COM的一个基类Iunknown，具体的示例程序如下：
源代码网推荐 var
源代码网推荐 MyObject : IUnknown; file://IUnknown是COM的基类
源代码网推荐 MySLink : IShellLink; file://用于创建快捷方式的对象
源代码网推荐 MyObject := CreateCOMObject(CLSID_ShellLink);
源代码网推荐 MySLink := MyObject as IShellLink;
源代码网推荐 创建实例后，通过调用SetPath()方法设置快捷方式指向的源程序的路径，快捷方式的存储位置应该是：“程序”的位置 程序组名称 快捷方式名称 扩展名.lnk；通过SetDescription()方法设置快捷方式的描述，当然你还可以调用比如SetHotKey()等方法设置热键、显示的图标（默认为实际程序的图标）等。实际上这个接口功能远不止这些，限于篇幅，直接略过。
源代码网推荐 设置完成的快捷方式并没有保存到磁盘上，还必须通过IpersistFile对象的Save()方法来实现。如下面的代码：
源代码网推荐 MyPFIle := MyObject as IPersistFile;
源代码网推荐 MyPFile.Save(PWChar(WFileName),True);
源代码网推荐 需要注意的是：快捷方式应该使用Unicode存储，所以必须调用PWChar()函数将其转换。
源代码网推荐
源代码网推荐 二、编程示例
源代码网推荐 下面，让我们用Delphi6来编程实现一个简单的示例程序。程序的功能如下：你可以在窗口的三个文本框中输入源程序的位置（也可以通过浏览按钮来实现）、程序组名称和快捷方式名称，通过下拉框来选择快捷方式的存放位置，单击“创建”按钮可以创建程序组和快捷方式了。是不是很酷？心动不如行动，让我们一步一步来实现。
源代码网推荐 1、 启动Delphi6.0，打开一个新的标准工程。在窗体中添加所需的控件。
源代码网推荐 首先向窗体中添加四个Label对象、三个Edit对象、一个下拉框对象ComboBox1、三个Button对象和一个OpenDialog对象。依次设置其相关属性等，调整后的窗体界面如图1所示。
源代码网推荐 <P><IMG BORDER="0" SRC="http://www.jyzx.com/bbs/uploadImages/2002313434547824.jpg" WIDTH="412" HEIGHT="292"></P>
源代码网推荐
源代码网推荐 2、 向Tform1对象中新增一个函数：
源代码网推荐 function CreateShortcut(SourceFileName : string; file://源程序的位置
源代码网推荐 ShortcutName : string; file://快捷方式的名称
源代码网推荐 ShortcutLocation : ShortcutType; file://快捷方式的建立位置
源代码网推荐 SubDirectory : string file://程序组的名称
源代码网推荐 ):Boolean;
源代码网推荐 其中ShortcutType是程序中自定义的一个枚举类：
源代码网推荐 type
源代码网推荐 ShortcutType=(_DESKTOP, file://桌面
源代码网推荐 _STARTMENU, file://开始菜单
源代码网推荐 _PROGRAMS, file://程序
源代码网推荐 _STARTUP, file://启动
源代码网推荐 _QUICKLAUNCH file://快速启动栏
源代码网推荐 );
源代码网推荐 CreateShortcut()函数用于实现快捷方式和程序组的创建，如果创建成功，则返回一个真值（True），否则返回为假值（False）。这可是本文中最重要的代码段哟！
源代码网推荐 function TForm1.CreateShortcut(SourceFileName, ShortcutName: string;ShortcutLocation:ShortcutType; SubDirectory: string):boolean;
源代码网推荐 const
源代码网推荐 REG_SHELLFOLDERS =
源代码网推荐 "SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders";
源代码网推荐 var
源代码网推荐 MyObject : IUnknown; file://IUnknown是基本的COM类
源代码网推荐 MySLink : IShellLink; file://用于创建快捷方式的对象
源代码网推荐 MyPFile : IPersistFile; file://用于保存快捷方式的对象
源代码网推荐 SubDir,Directory,LinkName : string;
源代码网推荐 WFileName : WideString;
源代码网推荐 Reg : TRegistry;
源代码网推荐 begin
源代码网推荐 Result:=False;
源代码网推荐 MyObject := CreateCOMObject(CLSID_ShellLink); file://建立快捷方式的COM对象
源代码网推荐 MySLink := MyObject as IShellLink;
源代码网推荐 MyPFIle := MyObject as IPersistFile;
源代码网推荐 MySLink.SetPath(pchar(SourceFileName)); file://设置快捷方式源文件的位置
源代码网推荐 Reg := TRegistry.Create ;
源代码网推荐 Reg.RootKey := HKEY_CURRENT_USER;
源代码网推荐 try
源代码网推荐 if Reg.OpenKey(REG_SHELLFOLDERS,false) then
源代码网推荐 begin
源代码网推荐 if SourceFileName<>"" then
源代码网推荐 if ShortcutName <>"" then
源代码网推荐 LinkName := ShortcutName
源代码网推荐 else
源代码网推荐 LinkName := ExtractFileName(SourceFileName)
源代码网推荐 Else file://当源路径是一个空值时，实际它指向“我的电脑”
源代码网推荐 LinkName := "我的电脑";
源代码网推荐
源代码网推荐 MySLink.SetDescription(pchar(LinkName)); file://设置快捷方式描述
源代码网推荐 LinkName := ChangeFileExt(LinkName,".lnk"); file://修改扩展名
源代码网推荐 file://以下通过注册表得到快捷方式的实际建立位置
源代码网推荐 case ShortcutLocation of
源代码网推荐 _DESKTOP : Directory := Reg.ReadString("Desktop");
源代码网推荐 _STARTMENU : Directory := Reg.ReadString("Start Menu");
源代码网推荐 _PROGRAMS: Directory := Reg.ReadString("Programs");

源代码网推荐 _STARTUP : Directory := Reg.ReadString("Startup");
源代码网推荐 _QUICKLAUNCH:Directory:=Reg.ReadString("AppData")
源代码网推荐 "MicrosoftInternet ExplorerQuick Launch"; file://快速启动栏的路径比较特殊
源代码网推荐 end;
源代码网推荐 if Directory <> "" then
源代码网推荐 begin
源代码网推荐 if SubDirectory <> "" then
源代码网推荐 begin
源代码网推荐 SubDir:=Directory "" SubDirectory;
源代码网推荐 WFileName := SubDir "" LinkName ;
源代码网推荐 if not CreateDir(SubDir) then file://创建目录失败
源代码网推荐 begin
源代码网推荐 Result:=false;
源代码网推荐 Exit;
源代码网推荐 end;
源代码网推荐 end
源代码网推荐 else
源代码网推荐 WFileName := Directory "" LinkName;
源代码网推荐 if MyPFile.Save(PWChar(WFileName),True)<>S_OK then
源代码网推荐 begin
源代码网推荐 Result:=False;
源代码网推荐 Exit;
源代码网推荐 end
源代码网推荐 else
源代码网推荐 Result:=true;
源代码网推荐 end
源代码网推荐 else
源代码网推荐 Result:=False;
源代码网推荐 end;
源代码网推荐 finally
源代码网推荐 Reg.Free ; file://释放空间
源代码网推荐 end;
源代码网推荐 end;
源代码网推荐 3、 编写浏览文件按钮的代码，如下：
源代码网推荐 procedure TForm1.Button1Click(Sender: TObject);
源代码网推荐 begin
源代码网推荐 if OpenDialog1.Execute then
源代码网推荐 Edit1.Text := OpenDialog1.FileName ;
源代码网推荐 end;
源代码网推荐 4、 同样的步骤编写“退出”按钮的代码：
源代码网推荐 procedure TForm1.Button3Click(Sender: TObject);
源代码网推荐 begin
源代码网推荐 Close;
源代码网推荐 end;
源代码网推荐 5、 下面是“创建”按钮的代码，直接调用我们建立的CreateShoutcut()函数来实现：
源代码网推荐 procedure TForm1.Button2Click(Sender: TObject);
源代码网推荐 var
源代码网推荐 SLinkType : ShortcutType;
源代码网推荐 begin
源代码网推荐 case ComboBox1.ItemIndex of
源代码网推荐 0 : SLinkType := _DESKTOP;
源代码网推荐 1 : SLinkType := _STARTMENU;
源代码网推荐 2 : SLinkType := _PROGRAMS;
源代码网推荐 3 : SLinkType := _STARTUP;
源代码网推荐 4 : SLinkType := _QUICKLAUNCH;
源代码网推荐 end;
源代码网推荐 if CreateShortcut(Edit1.Text ,Edit3.Text ,SLinkType, Edit2.Text ) then
源代码网推荐 Application.MessageBox(pchar("快捷方式创建成功!"),pchar("系统消息"),MB_OK)
源代码网推荐 else
源代码网推荐 Application.MessageBox(pchar("快捷方式创建失败!"),pchar("系统消息"),MB_OK);
源代码网推荐 end;
源代码网推荐 现在按下F9编译运行这个程序，你就可以试试创建快捷方式的效果了。程序的运行效果如图2：
源代码网推荐 <P><IMG BORDER="0" SRC="http://www.jyzx.com/bbs/uploadImages/20023134353019903.jpg" WIDTH="408" HEIGHT="290"></P>
源代码网推荐
源代码网推荐 当然，你还可以把程序修改后用于你的安装系统，实现个性化的安装程序，那种感觉一定酷毕了！
源代码网推荐 程序在Windows2000、Delphi6.0下编译通过。
源代码网推荐
源代码网推荐 作者：耿百强
源代码网推荐 地址：中共河南省济源市委党校
源代码网推荐 邮政编码：454650
源代码网推荐 联系电话：0391-6666267
源代码网推荐 E-Mail:dxgbq@sohu.com
源代码网推荐 OICQ:10562208
源代码网推荐 写稿日期：2002-3-12