发布：2014/6/3 17:06:24作者：管理员 来源：本站 浏览次数：1721
本文介绍一个工具：Setup Factory。在7.0版本中，Setup Factory的默认从属资源中仅支持VB5.0及VB6.0，想要在生成的安装程序中自动完成.NET FRAMEWORK的安装，从网上查了一下，须要按以下步骤做几件事：
首先找到Setup Factory安装目录下的Dependencies目录，在目录中新建一个dotnet2_0.xml的文件。
然后，在Dependencies目录下新建子目录，取名dotnet2_0，将.NET FRAMEWORK安装程序dotnetfx.exe拷至该子目录下，dotnetfx.exe可在VS 2005的安装目录下的SDK//v2.0//BootStrapper//Packages//dotnetfx目录下找到。
完成之后打开Setup Factory，选择：资源---从属---添加，可以看到.NET FRAMEWORK 2.0了。
文件dotnet2_0.xml内容如下：
<DependencyTemplate> <Dependency> <Name>Microsoft .NET Framework 2.0</Name> <RuntimeTempFolder>dotnet2_0</RuntimeTempFolder> <RevisionDate>Friday, March 30, 2007</RevisionDate> <Description>安装 Microsoft .NET Framework 2.0应用程序所需的运行时文件。</Description> <DetectScript> function isDotNet_Installed() --author:zhengxinhe www.admans.net -- Output to the log that the .NET detection has started. SetupData.WriteToLogFile("Success/t.NET 2.0 Module: Detection script started./r/n", true); -- Get the operating system name. --Check to see if the registry key exists DotNet_Registry = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software//Microsoft//.NETFramework"); if (DotNet_Registry == nil) then -- The registry key does not exist -- Run the .NET Installation script -- Output to the log file that .NET could not be found, so it will be installed. SetupData.WriteToLogFile("Info/t.NET 2.0 Module: No version of .NET 2.0 files was found. .NET 2.0 will be installed./r/n", true); return false; end -- The key does exist -- Get the .NET install location from the registry DotNet_Install_Location = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software//Microsoft//.NETFramework", "InstallRoot", true); -- Look for the file mscorcfg.dll Does_File_Exist = DotNet_Install_Location.."//v2.0.50727//aspnet_rc.dll"; if(not File.DoesExist(Does_File_Exist))then -- The file does not exist -- Run the .NET Installation script -- Output to the log file that .NET could not be found, so it will be installed. SetupData.WriteToLogFile("Info/t.NET 2.0 Module: No version of .NET 2.0 file was found. .NET 2.0 will be installed./r/n", true); return false; end -- The file does exist -- Get the version of mscorcfg.dll msc_ver = File.GetVersionInfo(Does_File_Exist); if(not msc_ver)then SetupData.WriteToLogFile("Info/t.NET 2.0 Module: no version was found. .NET 2.0 will be installed./r/n", true); return false; end -- Compare the returned value against the needed value Compare = String.CompareFileVersions(msc_ver.FileVersion, "2.0.50727.42"); if (Compare == -1) then -- Output to the log file that a lesser version of .NET was found on the system SetupData.WriteToLogFile("Info/t.NET 2.0 Module: A lesser version of .NET 2.0("..msc_ver.FileVersion..") was found on the users system./r/n", true); return false; else -- a version less than version 2.0 is installed -- Output to the log file that a lesser version of .NET was found on the system SetupData.WriteToLogFile("Info/t.NET 2.0 Module: A new or this version of .NET 2.0 was found on the users system./r/n", true); return true; end end </DetectScript> <DetectFunction>isDotNet_Installed</DetectFunction> <InstallScript> -- 用在安装操作中的变量: local strMessage = [[安装程序检测到你的系统没有安装Microsoft .NET Framework2.0或者版本过旧。请点击“确定”进行安装，点击“取消”中止安装。]]; local strDialogTitle = "必需的技术文件"; local bShowUserPrompt = true; -- 设置为 true 来询问用户是否安装模块 local bRunInstallFile = true; -- 设置默认选择 (是否默认运行安装) local strRuntimeSupportFolder = SessionVar.Expand("%TempLaunchFolder%//dotnet2_0"); local strFileToRun = strRuntimeSupportFolder.."//dotnetfx.exe"; ----------------------------------------------------------------------------------------- -- 安装已启动。 SetupData.WriteToLogFile("成功/tdotnet2_0 模块：安装脚本已启动。/r/n", true); -- 删除临时文件和运行时支持文件夹 (同时进行错误检查) local function PerformCleanUp() File.Delete(strFileToRun); error = Application.GetLastError(); if error ~= 0 then SetupData.WriteToLogFile("错误/tdotnet2_0 模块：无法删除临时文件 (".._tblErrorMessages[error]..")/r/n", true); end Folder.Delete(strRuntimeSupportFolder); error = Application.GetLastError(); if error ~= 0 then SetupData.WriteToLogFile("错误/tdotnet2_0模块：无法删除临时文件夹 (".._tblErrorMessages[error]..")/r/n", true); end end -- 是否显示对话框来询问用户是否安装模块。 if(bShowUserPrompt)then local nDialogResult = Dialog.Message(strDialogTitle,strMessage,MB_OKCANCEL,MB_ICONEXCLAMATION); if(nDialogResult == IDOK)then -- 用户选择安装模块。 bRunInstallFile = true; -- 用户要安装它 SetupData.WriteToLogFile("成功/tdotnet2_0 模块：用户已确认，准备安装。/r/n", true); else -- 用户不安装模块。 bRunInstallFile = false; -- 用户回答否 SetupData.WriteToLogFile("成功/tdotnet2_0 模块：用户不安装模块。/r/n", true); end end -- 检查用户是否要安装运行时。 if(bRunInstallFile)then -- 开始！ SetupData.WriteToLogFile("成功/tdotnet2_0模块：正在运行dotnet2_0 安装程序。/r/n", true); -- “/R:N”命令行参数告诉 VB 安装程序若需要的话不要显示重启屏幕。 -- 我们将检测整个安装进程返回代码，若需要的话，还设置内部 _NeedsReboot 变量。 -- 【注意】在静默方式下，你不能添加命令行参数“/Q”来运行安装 local nResult = File.Run(strFileToRun,"/R:N","",SW_SHOWNORMAL,true); if(nResult == 3010)then -- VB 安装指明它需要重启才能完成 -- 设置 Setup Factory 的重启变量，以便在安装结束时重启 _NeedsReboot = true; -- 需要重启 SetupData.WriteToLogFile("成功/tdotnet2_0 模块：dotnet2_0 安装程序已告知它需要重启。/r/n", true); end -- 删除运行时安装程序文件，并删除临时文件夹 PerformCleanUp(); -- 全部完成！ SetupData.WriteToLogFile("成功/tdotnet2_0模块：dotnet2_0运行时安装完毕。/r/n", true); else -- 用户不想安装运行时，那么删除运行时安装程序文件， -- 并删除临时文件夹，然后退出安装程序。 PerformCleanUp(); -- 全部完成！ SetupData.WriteToLogFile("成功/tdotnet2_0 模块：dotnet2_0 运行时未安装。/r/n", true); Application.Exit(); end </InstallScript> <SupportFiles> <File>#SUFDIR#/Dependencies/dotnet2_0/dotnetfx.exe</File> </SupportFiles> </Dependency> </DependencyTemplate>
==========================================================================
制作安装程序，无非是复制文件、注册控件、注册服务、修改设置项（注册表、配置文件）等等。通过一些专门的安装制作软件不难做出一个专业的安装程序。
.net下的WinForm程序，制作安装包需要做些什么呢？
典型情况下可能需要做如下事情：
1、判断客户机是否安装了.net framework
2、复制程序文件
3、将某些控件加入到全局应用程序缓存（GAC），比如第三方的控件或是自己定义的具有强名称的控件
4、安装时的默认设置项，比如程序的配置文件、或修改注册表等
5、创建快捷方式、软件的卸载
制作安装程序的工具比较多，常见的比如InstallShield、Wise Install、以及VS本身自带安装程序制作功能，前2个都是专业级的安装制作工具，所以安装文件也是巨大。这里我们推荐一款制作安装程序的软件Setup factory7.0，使用这个软件能够轻松的制作出一个专业的安装程序，它内置一种跟VBS类似的脚本语言，通过编写action脚本，能够实现比较强大的一些，比如从网上下载一些需要的安装文件。
对于Setup factory7.0的一般性使用这里就不详细介绍了，自己稍微摸索一下就知道了。我只介绍一下关于如何判断是否安装了.net framework及自动下载框架的安装文件并安装、如何修改注册表项、自定义安装界面等。
1、如何判断是否安装了.net framework
这里是判断注册表中是否存在框架的注册项。需要在Setup factory中的工程-操作的OnStartup事件中写如下代码：
--判断是否安装了.net框架hasInstalled = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software/Microsoft/.NETFramework");if hasInstalled == false then result = Dialog.Message("安装提示", "运行本软件需要安装.Net框架1.1版，是否从网络中下载并安装？", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1) if result == IDYES then isExists = HTTP.TestConnection("http://www.zhangyongjun.com/fdown/uploadfile/dotnetfx.exe", 90, 80); if isExists == true then -- Show the StatusDlg StatusDlg.Show(MB_ICONINFORMATION, false); StatusDlg.ShowCancelButton(true, "取消"); -- Set statusdlg title and message StatusDlg.SetTitle("下载所需文件 . . . "); -- Set meter range (max range = 65534) StatusDlg.SetMeterRange(0, 100); -- Download a file from the internet to the user's computer -- Uses DownloadCallback() as the callback function HTTP.Download("http://www.zhangyongjun.com/fdown/uploadfile/dotnetfx.exe", SessionVar.Expand("%TempFolder%/dotnetfx.exe"), MODE_BINARY, 20, 80, nil, nil, DownloadCallback); -- Hide the StatusDlg StatusDlg.Hide(); Shell.Execute(SessionVar.Expand("%TempFolder%/dotnetfx.exe"), "open", "", "", SW_SHOWNORMAL) else Dialog.Message("错误提示", "下载文件失败，可能服务器已停止服务。请从Microsoft网站上下载.Net Framework1.1。", MB_ICONEXCLAMATION); Application.Exit(0); end else Application.Exit(0); endend-- Callback function for HTTP.Downloadfunction DownloadCallback (nDownloaded, nTotal, TransferRate, SecondLeft, SecondsLeftFormat, Message) -- Convert total and downloaded bytes into formatted strings sDownloaded = String.GetFormattedSize(nDownloaded, FMTSIZE_AUTOMATIC, true); sTotal = String.GetFormattedSize(nTotal, FMTSIZE_AUTOMATIC, true); -- Output time left, formatted. StatusDlg.SetMessage("正在下载文件 . . . 剩余时间: " .. SecondsLeftFormat); -- Output formatted sizes to user through statusdlg status text StatusDlg.SetStatusText("已下载: " .. sDownloaded .. " / " .. sTotal); -- Set meter position (fraction downloaded * max meter range) StatusDlg.SetMeterPos((nDownloaded / nTotal) * 100);end
2、操作注册表
在定制安装界面中，可以添加一个界面，选择界面类型，并且能够自定义界面上的操作事件，比如在OnPreload、OnNext、OnBack、OnCancel、OnHelp编写脚本以实现特定的功能，下面的代码是实现在自定义的配置设置界面中用户填写完配置信息后，点“下一步”时，将填写的信息写入到注册表，其中CTRL_EDIT_01等为编辑控件（这里是文本框）的ID。
-- 这些操作在点击“下一步”按钮时执行。-- 提示：你可以在这里添加验证用户输入信息的操作Registry.CreateKey(HKEY_LOCAL_MACHINE, "Software/FengcheSoft/TradeSystem");tEditFieldServer = DlgEditField.GetProperties(CTRL_EDIT_01);tEditFieldDBUser = DlgEditField.GetProperties(CTRL_EDIT_02);--Debug.ShowWindow( true );Registry.SetValue(HKEY_LOCAL_MACHINE, "Software/FengcheSoft/TradeSystem", "ServerName", tEditFieldServer.Text, REG_SZ);Registry.SetValue(HKEY_LOCAL_MACHINE, "Software/FengcheSoft/TradeSystem", "DBUser", DlgEditField.GetProperties(CTRL_EDIT_02).Text, REG_SZ);Registry.SetValue(HKEY_LOCAL_MACHINE, "Software/FengcheSoft/TradeSystem", "DBPwd", DlgEditField.GetProperties(CTRL_EDIT_03).Text, REG_SZ);Registry.SetValue(HKEY_LOCAL_MACHINE, "Software/FengcheSoft/TradeSystem", "DBName", DlgEditField.GetProperties(CTRL_EDIT_04).Text, REG_SZ);Debug.Print(tEditFieldServer.Text);test = Registry.GetValue(HKEY_LOCAL_MACHINE, "Software/FengcheSoft/TradeSystem", "ServerName", true);Debug.Print(test);-- 进入下一个屏幕Screen.Next();
