Crystal reports 检查Inno设置中的系统架构
我正在使用Crystal reports 检查Inno设置中的系统架构,crystal-reports,inno-setup,pascalscript,Crystal Reports,Inno Setup,Pascalscript,我正在使用Inno Setup为我的.NET开发项目创建一个引导程序 在使用PascalScript时,我遇到了一些问题。但在此之前,这里是我用来创建引导程序的脚本 #define MyAppName "<ProductName>" #define MyAppVersion "<ProductVersion>" #define MyAppPublisher "<Company Name>" #define MyAppURL "<URL>" #def
Inno Setup
为我的.NET
开发项目创建一个引导程序
在使用PascalScript时,我遇到了一些问题。但在此之前,这里是我用来创建引导程序的脚本
#define MyAppName "<ProductName>"
#define MyAppVersion "<ProductVersion>"
#define MyAppPublisher "<Company Name>"
#define MyAppURL "<URL>"
#define MyAppExeName "<AppName>.exe"
#define MyAppCopyright "Copyright@2015"
#define MyContact "<Contact No>"
[Setup]
AppId={{69A884D3-671F-4DFB-9E23-F6FA35BD6264}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableDirPage=yes
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
LicenseFile=<License File Path>
OutputDir=<Output Directory Path>
OutputBaseFilename=<Output File Name>
Compression=lzma
SolidCompression=yes
SetupIconFile=<Icon File Path>
ArchitecturesInstallIn64BitMode=x64
AppCopyright={#MyAppCopyright}
AppContact={#MyContact}
VersionInfoVersion=1.5
VersionInfoCompany=<Company Name>
VersionInfoProductName=<Product Name>
VersionInfoProductVersion=<Product Version>
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1
[Files]
Source: "<Path>\NDP452-KB2901907-x86-x64-AllOS-ENU.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall; Permissions: admins-full; Check: Framework45IsNotInstalled
Source: "<Path>\CRRuntime_32bit_13_0_13.msi"; DestDir: "{tmp}"; Flags: deleteafterinstall 32bit; Permissions: admins-full;
Source: "<Path>\CRRuntime_64bit_13_0_14.msi"; DestDir: "{tmp}"; Flags: 64bit deleteafterinstall; Permissions: admins-full; Check: IsWin64
Source: "<Path>\SSCERuntime_x86-ENU.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall 32bit; Permissions: admins-full
Source: "<Path>\SSCERuntime_x64-ENU.exe"; DestDir: "{tmp}"; Flags: 64bit deleteafterinstall; Permissions: admins-full; Check: IsWin64
Source: "<Path>\<Product>.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "<Path>\File1.dll"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Run]
Filename: {tmp}\NDP452-KB2901907-x86-x64-AllOS-ENU.exe; Parameters: "/q /norestart"; Check: Framework45IsNotInstalled; StatusMsg: Microsoft Framework 4.0 is being installed. This process might take some time. Please wait.....
Filename: "msiexec.exe"; Parameters: "/i ""{tmp}\CRRuntime_32bit_13_0_13.msi"; StatusMsg: Crystal Reports Runtime is being installed. Please wait....;
Filename: {tmp}\SSCERuntime_x86-ENU.exe; StatusMsg: Microsoft SQL Compact 4.0 is being installed. Please wait.....
[Code]
function Framework45IsNotInstalled(): Boolean;
var
regresult: Cardinal;
begin
RegQueryDWordValue(HKLM, 'Software\Microsoft\NET Framework Setup\NDP\v4\Full', 'Install', regresult);
if (regresult = 0) then
begin
Result := True;
end
else
begin
Result := False;
end;
end;
[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
以静默模式运行可执行文件
e、 在上面的脚本中,我使用了参数:“/q/norestart”
以静默模式运行安装程序及其工作。但是如何为*.msi
文件执行此操作?我尝试了一些参数,但它们不起作用 使用ShellExec
尝试此解决方案:
[Run]
Filename: "{tmp}\CRRuntime_32bit_13_0_13.msi"; Parameters: "/passive";
Flags: shellexec waituntilterminated skipifdoesntexist;
StatusMsg: "Crystal Reports Runtime is being installed. Please wait...";
如果要通过MSIEXEC
调用:
[Run]
Filename: "msiexec.exe"; Parameters: "/passive /i ""{tmp}\CRRuntime_32bit_13_0_13.msi""";
Flags: waituntilterminated skipifdoesntexist;
StatusMsg: "Crystal Reports Runtime is being installed. Please wait...";
注意:在注释中的代码片段中,缺少了参数的引号。您应该使用“
打开和关闭参数,如果需要在参数行中使用引号,则必须加倍使用它。”
对于SQL Compact
,您可以使用以下代码:
[Files]
Source: "C:\Temp\SSCERuntime_x64-ENU.exe"; DestDir: "{tmp}";
Flags: nocompression deleteafterinstall uninsremovereadonly
Source: "C:\Temp\SSCERuntime_x86-ENU.exe"; DestDir: "{tmp}";
Flags: nocompression deleteafterinstall uninsremovereadonly
[Run]
Filename: "{tmp}\SSCERuntime_x64-ENU.exe"; Parameters: "/qn /i";
Flags: waituntilterminated skipifdoesntexist;
StatusMsg: SQL Compact 4.0 x64 is being installed. Please wait...;
Check: (IsWin64) and (not IsSQLCompact40Installed);
Filename: "{tmp}\SSCERuntime_x86-ENU.exe"; Parameters: "/qn /i";
Flags: waituntilterminated skipifdoesntexist;
StatusMsg: SQL Compact 4.0 x86 is being installed. Please wait...;
Check: (not IsWin64) and (not IsSQLCompact40Installed);
[Code]
function IsSQLCompact40Installed(): Boolean;
var
InstallDirString : String;
begin
result := false;
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Microsoft SQL Server Compact Edition\v4.0',
'InstallDir', InstallDirString) then begin
if FileExists(InstallDirString + '\sqlcecompact40.dll') then
result := true;
end;
end;
你不能在一篇文章中问三个不同的问题。无论如何,第一个问题,请参见。和@MartinPrikryl:很抱歉问了这么大的问题,谢谢你的链接。它起作用了。@RobeN:谢谢你的链接。我已经试过了,但是参数/q
或/qn
不起作用。执行时,它会提示错误消息为参数eters不受支持。
。谢谢。它工作得很好。你能帮我解决我提到的其他问题吗?我还有一个问题2尚待解决。:)导出并附加HKLM的注册表分支。\SOFTWARE\SAP BusinessObjects
。你还必须指定要检查的SQL Compact版本-3.5、4.0?x86、x64?@Mahadev我已经用SQL示例检查更新了答案Compact@RobenN:非常感谢您,但我已经为SQL Compact解决了此问题。但感谢您安装了ISSQLComact40Installed()
。如果可能,请告诉我crystal report的任何类似注册表项。
[Files]
Source: "C:\Temp\SSCERuntime_x64-ENU.exe"; DestDir: "{tmp}";
Flags: nocompression deleteafterinstall uninsremovereadonly
Source: "C:\Temp\SSCERuntime_x86-ENU.exe"; DestDir: "{tmp}";
Flags: nocompression deleteafterinstall uninsremovereadonly
[Run]
Filename: "{tmp}\SSCERuntime_x64-ENU.exe"; Parameters: "/qn /i";
Flags: waituntilterminated skipifdoesntexist;
StatusMsg: SQL Compact 4.0 x64 is being installed. Please wait...;
Check: (IsWin64) and (not IsSQLCompact40Installed);
Filename: "{tmp}\SSCERuntime_x86-ENU.exe"; Parameters: "/qn /i";
Flags: waituntilterminated skipifdoesntexist;
StatusMsg: SQL Compact 4.0 x86 is being installed. Please wait...;
Check: (not IsWin64) and (not IsSQLCompact40Installed);
[Code]
function IsSQLCompact40Installed(): Boolean;
var
InstallDirString : String;
begin
result := false;
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Microsoft SQL Server Compact Edition\v4.0',
'InstallDir', InstallDirString) then begin
if FileExists(InstallDirString + '\sqlcecompact40.dll') then
result := true;
end;
end;