Windows7如何把程序锁定到任务栏

uses ComObj;

procedure CrnPinAppToWin7Taskbar(strPath, strApp: string);
var
  vShell, vFolder, vFolderItem, vItemVerbs: Variant;
  vPath, vApp: Variant;
  i: Integer;
  str: String;
  h: HINST;
  szPinName: array[0..255] of Char;
begin
  vShell := CreateOleObject('Shell.Application');
  vPath := strPath;
  vFolder := vShell.NameSpace(vPath);
  vApp := strApp;
  vFolderItem := vFolder.ParseName(vApp);
  vItemVerbs := vFolderItem.Verbs;

  h := LoadLibrary('Shell32.dll');
  LoadString(h, 5386, szPinName, 256);
  FreeLibrary(h);

  for i := 1 to vItemVerbs.Count do
  begin
    str := vItemVerbs.Item(i).Name;

    if SameText(str, szPinName) then
    begin
      // 63 63 72 75 6E 2E 63 6F 6D
      vItemVerbs.Item(i).DoIt;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CrnPinAppToWin7Taskbar('C:\windows', 'regedit.exe');
end;

#include <comobj.hpp>

void __fastcall CrnPinAppToWin7Taskbar(String strPath, String strApp)
{
    Variant vShell = CreateOleObject("Shell.Application");
    Variant vFolder = vShell.OleFunction("NameSpace", WideString(strPath));
    Variant vFolderItem = vFolder.OleFunction("ParseName", WideString(strApp));
    Variant vItemVerbs = vFolderItem.OleFunction("Verbs");

    // 获取Pin to Taskbar的Verb字符串, 感谢titilima
    HINSTANCE hInst = ::LoadLibrary("Shell32.dll");

    TCHAR szPinName[256] = { 0 };
    ::LoadString(hInst, 5386, szPinName, 256);

    ::FreeLibrary(hInst);

    String str;

    int nCount = vItemVerbs.OlePropertyGet("Count");
    for (int i = 0; i < nCount; i++)
    {
        str = vItemVerbs.OleFunction("Item", i).OlePropertyGet("Name");

        if (SameText(str, szPinName))
        {
            // 63 63 72 75 6E 2E 63 6F 6D
            vItemVerbs.OleFunction("Item", i).OleFunction("DoIt");
        }
    }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    CrnPinAppToWin7Taskbar("C:\\windows\", "notepad.exe");
}

::ShellExecute(NULL, TEXT("TaskbarPin"), TEXT("E:\\Temp\\Notepad.lnk"), NULL, NULL, SW_SHOW);

ShellExecute(nil, 'TaskbarPin', 'E:\Temp\Notepad.lnk'), nil, nil, SW_SHOW);

#include "stdafx.h"
#include <Windows.h>
#include <shlobj.h>
#include <comdef.h>
#include <atlbase.h>

#define IF_FAILED_OR_NULL_BREAK(rv,ptr) \
    {if (FAILED(rv) || ptr == NULL) break;}

#define SAFE_RELEASE(p) { if(p) { (p)->Release(); (p)=NULL; } }

const WCHAR kPinStrEn[] = L"Pin to Taskbar";
const WCHAR kPinStrCh[] = L"锁定到任务栏";

bool PinToWin7TaskBar(const WCHAR* file_dir,const WCHAR* file_name)
{
    CoInitialize(NULL);
    CComPtr<IShellDispatch> pShellDisp;
    CComPtr<Folder> folder_ptr;
    CComPtr<FolderItem> folder_item_ptr;
    CComPtr<FolderItemVerbs> folder_item_verbs_ptr;
    bool ret = false;
    HRESULT rv = CoCreateInstance( CLSID_Shell, NULL, CLSCTX_SERVER,IID_IDispatch, (LPVOID *) &pShellDisp );
    do 
    {
        IF_FAILED_OR_NULL_BREAK(rv,pShellDisp);
        rv = pShellDisp->NameSpace(_variant_t(file_dir),&folder_ptr);

        IF_FAILED_OR_NULL_BREAK(rv,folder_ptr);
        rv = folder_ptr->ParseName(CComBSTR(file_name),&folder_item_ptr);

        IF_FAILED_OR_NULL_BREAK(rv,folder_item_ptr);
        rv = folder_item_ptr->Verbs(&folder_item_verbs_ptr);

        IF_FAILED_OR_NULL_BREAK(rv,folder_item_verbs_ptr);
        long count = 0;
        folder_item_verbs_ptr->get_Count(&count);
        for (long i = 0; i < count ; ++i)
        {
            FolderItemVerb* item_verb = NULL;
            rv = folder_item_verbs_ptr->Item(_variant_t(i),&item_verb);
            if (SUCCEEDED(rv) && item_verb)
            {
                CComBSTR name;
                item_verb->get_Name(&name);
                if (_wcsnicmp(name,kPinStrEn,wcslen(kPinStrEn)) == 0
                    || _wcsnicmp(name,kPinStrCh,wcslen(kPinStrCh)) == 0)
                {
                    item_verb->DoIt();
                    ret = true;
                    break;
                }
            }
        }
    } while (0);

    CoUninitialize();
    return ret;
}

int main(int _args,char* _argc)
{
    PinToWin7TaskBar(L"C:\\Users\\Administrator\\AppData\\Roaming\\yyExplore\\yyExplore",
        L"yyExplore.exe");
    return 0;
}