现在的位置: 首页 > 综合 > 正文

windows mobile 程序的打包过程

2013年12月12日 ⁄ 综合 ⁄ 共 6963字 ⁄ 字号 评论关闭
 把最近搞的关于如何将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看吧。第一次写帖子,有不成熟的地方还请各位朋友海涵!!

抱歉!评论已关闭.