博客剛開(kāi)，思緒比較亂，一時(shí)想不起來(lái)寫(xiě)什么！就把最近搞的關(guān)于如何將ppc應(yīng)用打包的心得寫(xiě)出來(lái)，共享給各位朋友！其實(shí)，我想有很多高手都知道怎么建立一個(gè)完整的打包程序，只是由于各種原因沒(méi)人寫(xiě)一篇完整的文章，故小弟在研究幾天之后做到功能基本完善。使我輩朋友少走彎路，
！我說(shuō)的功能基本完善是指：
1）在ppc今日屏幕中， 有你的程序快捷方式（今日插件）；
2）能夠建立中文快捷方式；
哈哈，其實(shí)就這么多！再多，我也講不出來(lái)！其實(shí)沒(méi)啥技術(shù)含量， 大家別見(jiàn)笑！ok，讓我們開(kāi)始，你可以按照我說(shuō)的步驟一步一步建立工程寫(xiě)代碼，也可以直接下載Demo源碼查看（建議前一種）！
第一步：建立應(yīng)用程序。我們打開(kāi)VS2005，新建一個(gè)SmartDevice的應(yīng)用程序工程項(xiàng)目，我們暫且叫做：CabSample。然后一直往下，直到建立程序，最后編譯生成執(zhí)行程序。ok, 第一步完成。（圖略 ）
第二步：建立今日插件。關(guān)于怎么寫(xiě)今日插件，我不想多說(shuō)。網(wǎng)上的代碼也比較多，在此我給個(gè)鏈接，它比較詳細(xì)闡述了今日插件。http://www.codeguru.com/cpp/w-p/ce/pocketpc/article.php/c9269__1/
下面是具體步驟：1）在剛才新建的項(xiàng)目中，新建一個(gè)工程。該工程是基于SmartDevice的dll項(xiàng)目，我們把工程名定為：MyToday 。如下圖所示：
然后一直向下，一直到工程設(shè)置選項(xiàng)，在工程類型中選擇 dll ， 點(diǎn)擊完成即可。如圖：
下面我們來(lái)完成今日插件代碼：
首先，我們向 今日插件 工程中加入一個(gè)圖標(biāo)(ID_ICON1)，表示你的應(yīng)用程序。
然后，我們?cè)诠こ痰膕ource文件夾中加入.def文件，名字任取，例如：MyToday.def
并在剛才所加文件中寫(xiě)下如下內(nèi)容：
EXPORTS
InitializeCustomItem @240
再然后，我們完善插件執(zhí)行代碼。我貼出主要代碼，具體見(jiàn)demo。注意，在寫(xiě)代碼前一定要加入 <todaycmn.h> 頭文件。
最后編譯，生成 MyToday.dll
MyToday主要源碼：
LRESULT CALLBACK WndProc (HWND hWnd, UINT uimessage, WPARAM wParam, LPARAM lParam)
{
switch (uimessage)
{
case WM_TODAYCUSTOM_QUERYREFRESHCACHE:
{
TODAYLISTITEM *ptli = (TODAYLISTITEM *)wParam;
if (NULL == ptli)
break;
if (0 == ptli->cyp)
{
ptli->cyp = PLUG_HEIGHT;
return TRUE;
}
}
break;
case WM_CREATE:
break;
case WM_LBUTTONUP:
{
// 1 判斷是否在 有效區(qū)域，2 查詢注冊(cè)表， 得到程序路徑， 3 啟動(dòng)程序
RECT rect;
POINT point;
point.x = LOWORD(lParam);
point.y = HIWORD(lParam);
::GetClientRect(hWnd, &rect);
if(PtInRect(&rect, point))
{
HKEY hOpenKey;
long lResult = 0;
DWORD iValueType = 0;
DWORD iLen = 0;
PROCESS_INFORMATION procInfo;
TCHAR szPath[MAX_PATH] = {'\0'};
LPCTSTR keyName = _T("Software\\CabSample"); //此注冊(cè)表存放你應(yīng)用程序的執(zhí)行路徑
LPCTSTR csAppPath = _T("AppPath");
lResult = ::RegOpenKeyEx(HKEY_CURRENT_USER, keyName, 0, 0, &hOpenKey);
ASSERT(lResult == ERROR_SUCCESS);
if(lResult != ERROR_SUCCESS)
{
MessageBox(hWnd, _T("讀注冊(cè)表失敗"), _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("讀注冊(cè)表失敗"), _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("啟動(dòng)程序失敗"), _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。現(xiàn)在，我們進(jìn)入第三步。
首先，和第二步類似，我們?yōu)轫?xiàng)目新增一個(gè)名為setupdll的dll工程。在此工程中同樣也要加一個(gè).def文件，并且在其中加入如下內(nèi)容：
EXPORTS
Install_Init
Install_Exit
Uninstall_Init
Uninstall_Exit
然后， 我們完善setupdll的執(zhí)行代碼。我貼出主要代碼，具體見(jiàn)demo。注意，在寫(xiě)代碼前一定要加入"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);
//設(shè)置主程序快捷方式的執(zhí)行路徑
_tcscpy(szAppPath, _T("\""));
_tcscat(szAppPath, szPath);
_tcscat(szAppPath, _T("\""));
// 將主程序安裝路徑寫(xiě)入注冊(cè)表
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; //如果讀寫(xiě)注冊(cè)表失敗， 放棄安裝 “今日插件”
// 注冊(cè)插件
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));
// 發(fā)送系統(tǒng)消息
::SendMessage(HWND_BROADCAST, WM_WININICHANGE, (WPARAM)0xF2, 0);
::RegCloseKey(hOpenKey);
//創(chuàng)建快捷方式
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ǒng)文件路徑失敗"), _T("提示"), MB_OK);
//return value
Success:
return codeINSTALL_EXIT_DONE;
Failed:
return codeINSTALL_EXIT_UNINSTALL;
}
第四步：制作完整打包程序。在項(xiàng)目中新增一個(gè)工程，名為CabSampleCab。具體參照下圖：
點(diǎn)擊ok, 下面咱們進(jìn)入cab打包階段。( 我只寫(xiě)步驟，更詳細(xì)信息，請(qǐng)參考微軟msdn)
首先：在“視圖”菜單上單擊“屬性窗口”，或打開(kāi)“屬性”窗口。
在屬性網(wǎng)格的“ProductName”字段中，將值更改為“CabSample”。
然后：在“本地文件系統(tǒng)”瀏覽器下，選擇“應(yīng)用程序文件夾”，右擊選中 “新怎”，繼續(xù)點(diǎn)擊 “項(xiàng)目主輸出”菜單，在彈出對(duì)話框的工程下拉框中，選中 “CabSample”, 重復(fù)上面步驟，依次把前面三個(gè)工程主輸出都加進(jìn)來(lái)。如下圖：
再然后：在 方案瀏覽器中， 選擇cab項(xiàng)目工程，查看屬性欄。點(diǎn)擊屬性欄中的 “CE Setup Dll”屬性，在彈出下拉框中選擇瀏覽，然后在彈出對(duì)話框中點(diǎn)擊進(jìn)入“應(yīng)用程序
文件夾”選項(xiàng)，選者 安裝 dll 的主輸出， 點(diǎn)擊 ok 如圖所示：
再再然后，想cab項(xiàng)目中加入一個(gè)注冊(cè)表項(xiàng)，保存 你的應(yīng)用程序執(zhí)行路徑。該注冊(cè)表字符串初始為空，在setupdll中填寫(xiě)正確的路徑。
最后，我們就不要為程序創(chuàng)建快捷方式拉，因?yàn)槲覀冊(cè)趕etupdll中，已經(jīng)創(chuàng)建。那為什么不讓cab自動(dòng)創(chuàng)建呢？
1、自動(dòng)創(chuàng)建的快捷方式，由于某種原因不能創(chuàng)建中文快捷方式；
2、自動(dòng)創(chuàng)建的快捷方式，有時(shí)候卸載程序的時(shí)候， 它沒(méi)被刪除；
3、前面我們自己已經(jīng)創(chuàng)建快捷方式，就不必再麻煩cab拉！！:-)
第五步：編譯整個(gè)安裝方案，生成cab包，下在到ppc上安裝， 運(yùn)行界面如下：
ok, 大功告成！！不懂的，下在demo回去研究！！什么？？我的打包過(guò)程不完整？？你還要能夠在pc上通過(guò)ActiveSync自動(dòng)安裝， 我暈， 今晚累死，這個(gè)大家自己上msdn看吧。第一次寫(xiě)帖子，有不成熟的地方還請(qǐng)各位朋友海涵！！
由于demo太大，上傳不上去，所以想要demo的，把Email留下來(lái)！ 或者去
http://www.winbile.net/BBS/1015441/ShowPost.aspx 下載