VSTO封装模板innesetup封装模板

2023-05-11 15:14:16 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VSTO封装模板innesetup封装模板》，欢迎阅读！
封装,模板,innesetup,VSTO
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\桥梁设计工具箱');