LPCTSTR keyName  = _T("Software\\CabSample");  //此注册表存放你应用程序的执行路径
    LPCTSTR csAppPath = _T("AppPath");

    lResult = ::RegOpenKeyEx(HKEY_CURRENT_USER, keyName, 0, 0, &hOpenKey);

    ASSERT(lResult == ERROR_SUCCESS);
    if(lResult != ERROR_SUCCESS)
    {
     MessageBox(hWnd, _T("读注册表失败"), _T("提示"), MB_OK);
     //MessageBox(hWnd, _T("Open Regedit Faild"), _T("提示"), MB_OK);
     break;
    }
    iLen = MAX_PATH * sizeof(TCHAR);
    lResult = ::RegQueryValueEx(hOpenKey, csAppPath, 0, &iValueType, (BYTE*)szPath, &iLen);
    if(lResult != ERROR_SUCCESS)
    {
     MessageBox(hWnd, _T("读注册表失败"), _T("提示"), MB_OK);
     //MessageBox(hWnd, _T("Read Regedit Faild"), _T("提示"), MB_OK);
     break;
    }
    ::RegCloseKey(hOpenKey);

    BOOL bSuc  = ::CreateProcess(szPath, NULL, NULL, NULL, FALSE, 0, NULL, NULL, NULL, &procInfo);
    if(bSuc)
    {
     ::CloseHandle(procInfo.hThread);
     ::CloseHandle(procInfo.hProcess);
    }
    else
     
    { 
     MessageBox(hWnd, _T("启动程序失败"), _T("提示"), MB_OK);
     //MessageBox(hWnd, _T("start App Failed"), _T("提示"), MB_OK);
     //MessageBox(hWnd, szPath, _T("提示"), MB_OK);
    }
   }
  }
  break;   
  
 case WM_PAINT:
  {
   HDC hdc;
   PAINTSTRUCT ps;
   hdc = BeginPaint(hWnd, &ps);
   PaintAll(hWnd, hdc);
   EndPaint(hWnd, &ps);
  }
  break;
  
 case WM_ERASEBKGND:
  return TRUE;

 case WM_TODAYCUSTOM_RECEIVEDSELECTION:
  g_bSelected = TRUE;
  return TRUE;

 case WM_TODAYCUSTOM_USERNAVIGATION:
  break;
  
 case WM_TODAYCUSTOM_ACTION:
  break;
  
  
 }
 return DefWindowProc (hWnd, uimessage, wParam, lParam) ;
}

第三步：建立安装dll。现在，我们进入第三步。
               首先，和第二步类似，我们为项目新增一个名为setupdll的dll工程。在此工程中同样也要加一个.def文件，并且在其中加入如下内容：
EXPORTS
 Install_Init
 Install_Exit
 Uninstall_Init
 Uninstall_Exit
               然后， 我们完善setupdll的执行代码。我贴出主要代码，具体见demo。注意，在写代码前一定要加入"ce_setup.h" 和<shellapi.h>头文件，其中"ce_setup.h"在demo里面包含。
              最后编译，生成 Setupdll.dll

Setupdll主要源码：
codeINSTALL_EXIT Install_Exit(HWND hwndparent,
         LPCTSTR pszinstalldir,
         WORD cfaileddirs,
         WORD cfailedfiles,
         WORD cfailedregkeys,
         WORD cfailedregvals,
         WORD cfailedshortcuts)
{
 HKEY hOpenKey    = NULL;
 long lResult     = 0;
 DWORD dwOpenStyle    = 0;
 DWORD iValueType    = 0;
 DWORD iLen     = 0;
 DWORD iTemp     = 0;
 TCHAR szPath[MAX_PATH]  = {'\0'};
 TCHAR szLinkPath[MAX_PATH] = {0};
 TCHAR szAppPath[MAX_PATH]  = {0};
 
 LPCTSTR keyName  = _T("Software\\CabSample");
 LPCTSTR csAppPath = _T("AppPath");
 LPCTSTR csTodaykey = _T("Software\\Microsoft\\Today\\Items\\\"打包示例\"");
 LPCTSTR csPlugName = _T("MyToday.dll");  // 你的插件名
 LPCTSTR csAppName = _T("CabSample.exe");  // 你的程序名

 if(cfaileddirs || cfailedfiles || cfailedregkeys
  || cfailedregvals || cfailedshortcuts)
  goto Failed;

 //获取主程序安装路径
 _tcscpy(szPath, pszinstalldir);
 _tcscat(szPath, _T("\\"));
 _tcscat(szPath, csAppName);

 //设置主程序快捷方式的执行路径
 _tcscpy(szAppPath, _T("\""));
 _tcscat(szAppPath, szPath);
 _tcscat(szAppPath, _T("\""));

 // 将主程序安装路径写入注册表
 
 lResult = ::RegCreateKeyEx(HKEY_CURRENT_USER, keyName, 0, _T(""), REG_OPTION_NON_VOLATILE,
        0,NULL,&hOpenKey, &dwOpenStyle);
 if(lResult != ERROR_SUCCESS)
  goto Success;
 ::RegSetValueEx(hOpenKey, csAppPath, 0, REG_SZ, (BYTE*)&szPath, sizeof(TCHAR) * _tcslen(szPath));
 ::RegCloseKey(hOpenKey);

 memset(szPath, 0x00, sizeof(TCHAR) * MAX_PATH); 
 _tcscpy(szPath, pszinstalldir);
 _tcscat(szPath, _T("\\"));
 _tcscat(szPath, csPlugName);
 ::CopyFile(szPath, _T("\\Windows\\MyToday.dll"), FALSE);

 // 安装 “今日插件”
 hOpenKey = NULL;
 lResult = ::RegCreateKeyEx(HKEY_LOCAL_MACHINE, csTodaykey, 0, _T(""), REG_OPTION_NON_VOLATILE,
        0, NULL, &hOpenKey, &dwOpenStyle);

 if(lResult != ERROR_SUCCESS)
  goto Success; //如果读写注册表失败， 放弃安装 “今日插件”

 // 注册插件
 iTemp  = 0;
 ::RegSetValueEx(hOpenKey, _T("Flags"), 0, REG_DWORD, (BYTE*)&iTemp, sizeof(iTemp));
 ::RegSetValueEx(hOpenKey, _T("Options"), 0, REG_DWORD, (BYTE*)&iTemp, sizeof(iTemp));
 iTemp  = 1;
 ::RegSetValueEx(hOpenKey, _T("Enabled"), 0, REG_DWORD, (BYTE*)&iTemp, sizeof(iTemp));
 ::RegSetValueEx(hOpenKey, _T("Order"), 0, REG_DWORD, (BYTE*)&iTemp, sizeof(iTemp));
 ::RegSetValueEx(hOpenKey, _T("Selectability"), 0, REG_DWORD, (BYTE*)&iTemp, sizeof(iTemp));
 iTemp  = 4;
 ::RegSetValueEx(hOpenKey, _T("Type"), 0, REG_DWORD, (BYTE*)&iTemp, sizeof(iTemp));
 ::RegSetValueEx(hOpenKey, _T("DLL"), 0, REG_SZ, (BYTE*)_T("\\Windows\\MyToday.dll"), sizeof(TCHAR) * _tcslen(szPath));
 // 发送系统消息
 ::SendMessage(HWND_BROADCAST, WM_WININICHANGE, (WPARAM)0xF2, 0);
 ::RegCloseKey(hOpenKey);
 
 //创建快捷方式
 if(SHGetSpecialFolderPath(NULL, szLinkPath, CSIDL_PROGRAMS,FALSE))
 {
  _tcscat(szLinkPath, _T("\\"));
  _tcscat(szLinkPath, _T("打包示例.lnk"));

  if(SHCreateShortcut(szLinkPath, szAppPath) == FALSE)
  {
   MessageBox(NULL, _T("安装快捷方式失败"), _T("提示"), MB_OK);
  }

 }
 else
  MessageBox(NULL, _T("获取系统文件路径失败"), _T("提示"), MB_OK);

 //return value
Success:
 return codeINSTALL_EXIT_DONE;

Failed:
 return codeINSTALL_EXIT_UNINSTALL;
}

第四步：制作完整打包程序。在项目中新增一个工程，名为CabSampleCab。具体参照下图：

点击ok, 下面咱们进入cab打包阶段。( 我只写步骤，更详细信息，请参考微软msdn)
           首先：在“视图”菜单上单击“属性窗口”，或打开“属性”窗口。
 在属性网格的“ProductName”字段中，将值更改为“CabSample”。

            然后：在“本地文件系统”浏览器下，选择“应用程序文件夹”，右击选中 “新怎”，继续点击 “项目主输出”菜单，在弹出对话框的工程下拉框中，选中 “CabSample”, 重复上面步骤，依次把前面三个工程主输出都加进来。如下图：


            再然后：在 方案浏览器中， 选择cab项目工程，查看属性栏。点击属性栏中的 “CE Setup Dll”属性，在弹出下拉框中选择浏览，然后在弹出对话框中点击进入“应用程序