建立快捷方式(Delphi编程)

本实例介绍如何在桌面、程序组和启动菜单中建立快捷方式。

向窗体上添加3个TButton组件，分别用于向桌面、程序组和启动菜单中添加快捷方式。设计完成的主界面如图4-16所示。

图4-16  主界面

首先在程序的uses段中添加对ComObj、ShlObj和Activex的引用，然后添加6个全局变量如下：

  tmpObject : IUnknown;

  tmpSLink : IShellLink;

  tmpPFile : IPersistFile;

  PIDL : PItemIDList;

  StartupDirectory : array[0..MAX_PATH] of Char;

  LinkFilename : WideString;

其中tmpObject、tmpSLink和tmpPFile分别为IUnknown、IShellLink和IPersistFile接口，而PIDL用于存储项目标识符列表，数组StartupDirectory用于存储快捷方式的路径信息，LinkFilename则为快捷方式文件(*.lnk)的路径和文件名信息。

最后添加如下程序初始化代码来初始化各个全局变量：

procedure TfrmMain.FormCreate(Sender: TObject);

begin

    tmpObject := CreateComObject(CLSID_ShellLink);

    //创建建立快捷方式的外壳扩展

    tmpSLink := tmpObject as IShellLink;

    //取得接口

    tmpPFile := tmpObject as IPersistFile;

    //用来储存*.lnk文件的接口

    tmpSLink.SetPath(pChar(Application.ExeName));

    //设定程序所在路径

    tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(Application.ExeName)));

    //设定工作目录

end;

下面说明如何在桌面建立快捷方式。

在程序运行过程中，如果读者单击“在桌面上建立快捷方式”按钮，就会激活下面的响应代码：

procedure TfrmMain.btnDesktopClick(Sender: TObject);

begin

    SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);

    Fillchar(StartupDirectory,Max_Path+1,0);

    SHGetPathFromIDList(PIDL,StartupDirectory);

    LinkFilename := StartupDirectory + '\Delphi.lnk';

    tmpPFile.Save(pWChar(LinkFilename),FALSE);

end;

程序首先取得桌面快捷方式对应的项目标识符列表，然后通过SHGetPathFromIDList (PIDL,StartupDirectory)语句把取得的项目标识符列表转化为路径信息存储到全局变量StartupDirectory中，最后调用IPersistFile接口的Save方法把本程序的快捷方式存储起来，这时在桌面上就会看到新建的本程序的快捷方式。

在程序组和启动菜单中建立快捷方式的原理与在桌面上建立快捷方式的原理大体相同。

[1] [2] 下一页