程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi編程實現程序快捷方式[原創]

Delphi編程實現程序快捷方式[原創]

編輯：Delphi

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 := 我的電腦;