Windows Mobile 打包過程

部落格剛開，思緒比較亂，一時想不起來寫什麼！就把最近搞的關於如何將ppc應用打包的心得寫出來，共用給各位朋友！其實，我想有很多高手都知道怎麼建立一個完整的打包程式，只是由於各種原因沒人寫一篇完整的文章，故小弟在研究幾天之後做到功能基本完善。使我輩朋友少走彎路， ！我說的功能基本完善是指：
   1）在ppc今日螢幕中， 有你的程式捷徑（今日外掛程式）；
   2）能夠建立中文捷徑；   
哈哈，其實就這麼多！再多，我也講不出來！其實沒啥技術含量， 大家別見笑！ok，讓我們開始，你可以按照我說的步驟一步一步建立工程寫代碼，也可以直接下載Demo源碼查看（建議前一種）！

第一步：建立應用程式。我們開啟VS2005，建立一個SmartDevice的應用程式工程項目，我們暫且叫做：CabSample。然後一直往下，直到建立程式，最後編譯產生執行程式。ok, 第一步完成。（圖略 ）

第二步：建立今日外掛程式。關於怎麼寫今日外掛程式，我不想多說。網上的代碼也比較多，在此我給個連結，它比較詳細闡述了今日外掛程式。http://www.codeguru.com/cpp/w-p/ce/pocketpc/article.php/c9269__1/

 下面是具體步驟：1）在剛才建立的項目中，建立一個工程。該工程是基於SmartDevice的dll項目，我們把工程名定為：MyToday 。如所示：

然後一直向下，一直到工程設定選項，在工程類型中選擇 dll ， 點擊完成即可。
下面我們來完成今日外掛程式代碼：
         首先，我們向 今日外掛程式 工程中加入一個表徵圖(ID_ICON1)，表示你的應用程式。
          然後，我們在工程的source檔案夾中加入.def檔案，名字任取，例如：MyToday.def
                      並在剛才所加檔案中寫下如下內容：
EXPORTS
 InitializeCustomItem  @240
         再然後，我們完善外掛程式執行代碼。我貼出主要代碼，具體見demo。注意，在寫代碼前一定要加入 <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 判斷是否在 有效地區，2 查詢註冊表， 得到程式路徑， 3 啟動程式
   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");  //此註冊表存放你應用程式的執行路徑
    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”屬性，在彈出下拉框中選擇瀏覽，然後在彈出對話方塊中點擊進入“應用程式

檔案夾”選項，選者 安裝 dll 的主輸出， 點擊 ok ：

         再再然後，想cab項目中加入一個登錄機碼，儲存 你的應用程式執行路徑。該註冊表字串初始為空白，在setupdll中填寫正確的路徑。

         最後，我們就不要為程式建立捷徑拉，因為我們在setupdll中，已經建立。那為什麼不讓cab自動建立呢？
          1、自動建立的捷徑，由於某種原因不能建立中文捷徑；
          2、自動建立的捷徑，有時候卸載程式的時候， 它沒被刪除；
          3、前面我們自己已經建立捷徑，就不必再麻煩cab拉！！:-)

第五步：編譯整個安裝方案，產生cab包，下在到ppc上安裝， 運行介面如下：

ok,  大功告成！！不懂的，下在demo回去研究！！什嗎？？我的打包過程不完整？？你還要能夠在pc上通過ActiveSync自動安裝， 我暈， 今晚累死，這個大家自己上msdn看吧。第一次寫文章，有不成熟的地方還請各位朋友海涵！！
        由於demo太大，上傳不上去，所以想要demo的，把Email留下來！ 或者去http://www.winbile.net/BBS/1015441/ShowPost.aspx 下載