Do What You think !!

 

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 下载

posted on 2007-04-02 21:42 零宇 阅读(4791) 评论(16)  编辑 收藏 引用 所属分类: Windows Mobile

评论

# re: Windows Mobile 打包过程 2007-04-13 09:10 零宇

由于,图片被我不小心删除,大家可以去http://www.winbile.net/BBS/1015441/ShowPost.aspx 下载 例子。我把图片链接去了
  回复  更多评论   

# re: Windows Mobile 打包过程 2007-07-18 13:54 Thinkgeo

I have got the source code ,but I can;t run correctly.can you send your code to me directly:
renjinsheng@thinkgeo.com

Thanks.  回复  更多评论   

# re: Windows Mobile 打包过程 2007-09-20 16:19 zzlu999

你好,我想问问用VS2005制作安装程序,打包过程中安装路径问题。就是让生成的CAB文件在PPC上安装时能够修改安装路径。怎样才能做到呢?麻烦你有空给我看一下好吗?邮箱zzlu999@sina.com
不胜感谢!  回复  更多评论   

# re: Windows Mobile 打包过程[未登录] 2007-10-19 22:59 jack

你好,请把这个demo的源码发给我,我在网上没有找到下载。
Email :wangeleven@163.com  回复  更多评论   

# re: Windows Mobile 打包过程 2008-05-08 17:20 graywang

你好,请把这个demo的源码发给我,我在网上没有找到下载。
Email : wang_lei1983@163.com

  回复  更多评论   

# re: Windows Mobile 打包过程 2008-05-08 17:22 graywang

你好,请把这个demo的源码发给我,我在网上没有找到下载。
Email : wang_lei1983@163.com

非常感谢!!  回复  更多评论   

# re: Windows Mobile 打包过程 2008-05-09 13:59 零宇

文章最后已给出链接,请去那里下载。谢谢!  回复  更多评论   

# re: Windows Mobile 打包过程 2008-07-25 11:37 fengyongxi

你好,请把这个demo的源码发给我,我在网上没有找到下载。
Email : xiaohe8503@163.com   回复  更多评论   

# re: Windows Mobile 打包过程 2008-08-12 12:33 漂泊浪子

给的源代码下载链接不对啊!  回复  更多评论   

# re: Windows Mobile 打包过程[未登录] 2008-10-14 11:44 joe

您好!Demo的源代码我下载不了,您能发一份给我吗?谢谢!zhangxiwen1979@gmail.com  回复  更多评论   

# re: Windows Mobile 打包过程 2008-10-23 18:29 frank.sunny

http://www.winbile.net/bbs/forums/threads/1015441.aspx

谢谢  回复  更多评论   

# re: Windows Mobile 打包过程 2008-10-27 22:22 彭鹏

pengai3@gmail.com
能给我一份demo吗?先谢谢了!!!  回复  更多评论   

# re: Windows Mobile 打包过程 2008-10-28 15:08 刘斌

请教下如何把cf3.5.cab与项目一起打包?  回复  更多评论   

# re: Windows Mobile 打包过程 2008-12-26 15:35 www

我也需要,谢谢老兄.我发我一份50451517@qq.com  回复  更多评论   

# re: Windows Mobile 打包过程 2010-03-26 09:19 小韩

你好,请把这个demo的源码发给我,我在网上没有找到下载。
Email :245921027@qq.com  回复  更多评论   

# re: Windows Mobile 打包过程[未登录] 2012-07-02 10:54 liu

好,请把这个demo的源码发给我,我在网上没有找到下载。
Email :15967863@qq.com  回复  更多评论   


只有注册用户登录后才能发表评论。
网站导航: 博客园   IT新闻   BlogJava   博问   Chat2DB   管理


导航

统计

常用链接

留言簿(4)

随笔档案(8)

文章分类(4)

文章档案(4)

Windows Mobile 论坛

道中人

最新随笔

搜索

积分与排名

最新评论

阅读排行榜

评论排行榜