终于还是放弃了飞信的虚拟机

程序基本完成了，最终的发布方案，由于水晶报表的缘故，终究还是放弃了飞信的虚拟机，因为水晶报表所需的环境不只是几个dll那么简单，还需要注册一些程序集，没办法了。

 

但是，还是不想做成setup安装包的形式，因为程序本身没有多大多复杂，就是编译出来一个exe文件，直接就可以运行的，因此，就得想一个两全其美的办法：既保证在没有.NET和水晶报表环境的机器上能够自动检测、安装环境，又保证在已有.NET和水晶报表环境的机器上程序能够免安装直接运行。

 

综合以前找的用飞信虚拟机的方案、网上查找其它方案，以及多次在测试机（在虚拟机上装的干净的XP系统）上的实验结果，最终确定了这样一个部署策略：

 

准备一个环境部署的安装包，再写一个程序，检测系统中是否有必备环境，若没有，则启动环境部署的安装包部署.NET和水晶报表环境；若有，则直接启动程序。

 

1、环境部署包的制作

 

这个在网上查到的，简单说，就是在VS里面见一个setup工程，该工程里面不添加所写程序的内容，而只是添加一个水晶报表的合并模块。该合并模块不是VS里面自带的，而是从网上找的一个CrystalReportsRedist2005_x86.msm文件，然后把它放在C:/Program Files/Common Files/Merge Modules下，再添加。添加这个合并模块时，它会自动添加microsoft_vc80_atl_x86.msm和policy_8_0_microsoft_vc80_atl_x86.msm，另外还会检测到.NET框架依赖项，但并非添自动添加的合并模块。最后，在项目的属性中，“系统必备”项里面，选择.NET框架和水晶报表Crystal Reports for .NET Framework 2.0，安装位置选择“从与我的应用程序相同的位置下载系统必备组件”，这样就能把.NET框架和水晶报表的安装包连同程序一块发布了。

 

另外，由于这只是系统必备环境的安装包，所以把安装过程中多余的对话框（比如选择安装路径什么的）都去掉了，只留了一个进度对话框和完成对话框。安装工程的ProductName属性设置为“程序必备环境”，呵呵。

 

2、检测程序的制作

 

受到在飞信虚拟机下运行.NET程序方法的启发，我也用VC做了一个MFC的控制台程序，在运行时将控制台隐藏，用于先检测系统环境，若没有，则启动环境部署包，否则直接运行程序。代码如下：

 

#include "stdafx.h" #include "iostream" #include "InputStatMain.h" #ifdef _DEBUG #define new DEBUG_NEW #endif #pragma comment( linker, "/subsystem:/"windows/" /entry:/"mainCRTStartup/"" ) // 设置入口地址，以隐藏控制台窗口 // 唯一的应用程序对象 CWinApp theApp; using namespace std; int _tmain(int argc, TCHAR* argv[], TCHAR* envp[]) { int nRetCode = 0; // 初始化 MFC 并在失败时显示错误 if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0)) { // TODO: 更改错误代码以符合您的需要 _tprintf(_T("错误: MFC 初始化失败/n")); nRetCode = 1; } else { // TODO: Place code here. HKEY hKey; LPCTSTR path=(LPCTSTR)"Installer//Assemblies//Global"; //直接找水晶报表 LONG lResult=(::RegOpenKeyEx(HKEY_CLASSES_ROOT,path,0,KEY_READ,&hKey)); LPCTSTR val=(LPCTSTR)"CrystalDecisions.ReportAppServer.ClientDoc,Version=/"10.2.3600.0/",PublicKeyToken=/"692fbea5521e1304/",Culture=/"neutral/",FileVersion=/"10.2.9700.0/",ProcessorArchitecture=/"MSIL/""; //直接找水晶报表键值 lResult=(::RegQueryValueEx(hKey,val,NULL,NULL,NULL,NULL)); ::RegCloseKey(hKey); if(lResult!=ERROR_SUCCESS)//若不是返回成功 { //先部署环境 ::AfxMessageBox("发现您的系统中缺少程序运行所需的环境。/n现在将安装该环境，安装完成后，请重新启动程序。"); WinExec("SetupEnv.exe",SW_SHOW); } else { WinExec("InputStat.exe",SW_SHOW); } nRetCode= 0; } return nRetCode; }

 

代码很简单，没什么可说的，主要是关于注册表项，需要说明一下：

 

这里我查找的是“HKEY_CLASSES_ROOT/Installer/Assemblies/Global”下面的一个键值。在《通过FetionVM实现无.net框架环境下运行.NET程序（转）》中描述的方法中，是通过查找“SOFTWARE//Microsoft//.NETFramework//v2.0.50727”键，来确定系统中是否安装了.NET2.0，但是经过在测试机上的实验，发现如果卸载.NET2.0的话，该注册表键会残留，导致判断错误。经实验，发现应该更进一步，检验“HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/.NETFramework/v2.0.50727/NGenService/Roots”注册表键。

 

然而，事情到此并未结束。我们不能排除客户机上只安装了.NET2.0框架而未部署水晶报表的情况（事实上这种情况更多），而水晶报表的部署是以.NET2.0框架的存在为前提的，也就是说有.NET框架不一定有水晶报表，而有水晶报表则一定有.NET框架，所以，不如直接检测水晶报表是否已部署，以此来确定系统中是否有程序运行的必备环境。

 

按照检测.NET框架的思路，寻找与水晶报表相关的注册表键值。一开始找到的是“HKEY_LOCAL_MACHINE/SOFTWARE/Crystal Decisions/10.2”，但是发现这也是一个卸载后会残留的键。经过来来回回在测试机上对水晶报表不停地安装和卸载，终于发现，安装和卸载水晶报表在注册表中引起的变化，在于“HKEY_CLASSES_ROOT/Installer/Assemblies/Global”中的N多键值。把安装和卸载后这里的键值导出来，用ultraedit比较一下，很容易看出，卸载水晶报表后会少了好多键值，所以直接随便找了一个，放在程序里检测一下就OK了。