VSTO封装模板innesetup封装模板
说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。
InneSetUp封装模板 使用说明：①将下面文件存为iss后缀的文件②替换【桥梁设计工具箱】为你自己的VSTO项目名字即可。 #define MyAppName "桥梁设计工具箱" #define MyAppVerName "桥梁设计工具箱 1.0" [Setup] AppName={#MyAppName} AppVerName={#MyAppVerName} VersionInfoProductName=桥梁设计工具箱 DefaultDirName= "d:\Program Files\桥梁设计工具箱" DisableDirPage=no DisableProgramGroupPage=yes DefaultGroupName=桥梁设计工具箱 OutputDir=. SetupIconFile=B.ico OutputBaseFilename=桥梁设计工具箱 WindowShowCaption=no DisableWelcomePage=no [code] procedure InitializeWizard(); begin WizardForm.LICENSEACCEPTEDRADIO.Checked:=true; end; [Messages] SetupWindowTitle=桥梁设计工具箱 安装向导 ClickNext=单击“下一步”继续，或单击“取消”退出安装程序。%n%n%n%n%n为确保本软件能一次安装成功，请尽可能先关闭360或者电脑管家、金山毒霸之类，然后再安装本软件。 [Languages] Name: "chinesesimp"; MessagesFile: "compiler:Default.isl" [Icons] Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}" [Files] Source: "G:\★自编工具\VBA\桥梁设计工具箱\桥梁设计工具箱\bin\Debug\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs [Registry] Root: HKCU; Subkey: "Software\Microsoft\桥梁设计工具箱"; ValueType: string; ValueName: "SetupPath"; ValueData: {code:pathSS} ; Flags: uninsdeletevalue Root: HKCU ;Subkey: "Software\Microsoft\VSTO\Security\Inclusion"; ValueType: string; ValueName: "ValveKey"; ValueData: {{85e02183-80ec-4cfb-af71-65526b5f0231} ; Flags: uninsdeletevalue Root: HKCU ;Subkey: "Software\Microsoft\VSTO\SolutionMetadata"; ValueType: string; ValueName: "ValveKey"; ValueData: {{F8DC05A4-C4F2-47C4-9E76-EC411F89C5F9} ; Flags: uninsdeletevalue [Code] //此代码的功能：在出现安装界面之前弹出一个提示框，告之用户一些必要的信息 function InitializeSetup(): Boolean; begin Log('InitializeSetup called'); Result := MsgBox('友情提示:'#13'1.如果您的操作系统是Win 10或者Win 8，而且Excel是2013版或者更高版本，可以直接安装“桥梁设计工具箱箱.exe”。'#13'2.操作系统或者Excel不属于以上版本，请先安装“运行环境.exe”，后安装“桥梁设计工具箱箱2.0.exe”。'#13''#13'需要先装“运行环境.exe”请点“否”，然后请双击”运行环境.exe“;如果已经安装运行环境或者不需要安装运行环境请点“是”', mbConfirmation, MB_YESNO) = idYes; if Result = False then end; //此代码的功能：向注册表中写入插件信息,其中ExpandConstant('{app}')表示获取安装路径，它后面的5句代码表示写入插件信息 function pathSS(Param: String): string; begin result:= ExpandConstant('{app}') RegWriteStringValue(HKEY_CURRENT_USER,'Software\KingSoft\Office\ET\AddinsWL','桥梁设计工具箱','') RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Excel\Addins\桥梁设计工具箱', 'Description', '桥梁设计工具箱'); RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Excel\Addins\桥梁设计工具箱', 'FriendlyName', '桥梁设计工具箱'); RegWriteDWordValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Excel\Addins\桥梁设计工具箱', 'LoadBehavior', 3); RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Excel\Addins\桥梁设计工具箱', 'Manifest',ExpandConstant('{app}')+'\桥梁设计工具箱.vsto|vstolocal'); end; //此代码的功能：卸载插件时清除注册表痕迹 procedure CurUninstallStepChanged (CurUninstallStep: TUninstallStep ); begin RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\Microsoft\Office\Excel\Addins\桥梁设计工具箱'); 本文来源：https://www.wddqw.com/doc/24aff084487302768e9951e79b89680203d86bb0.html