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看吧。第一次写帖子，有不成熟的地方还请各位朋友海涵！！