我的 Inno Setup 脚本用于安装驱动程序。它运行我的InstallDriver.exe
在步骤中复制此文件后ssInstall
.
我需要根据返回的值要求用户在某些情况下重新启动InstallDriver.exe
.
这意味着我不能把InstallDriver.exe
在部分[Run]
因为没有办法监控它的返回值。
所以我把它放在函数中CurStepChanged()
如下:
procedure CurStepChanged(CurStep: TSetupStep);
var
TmpFileName, ExecStdout, msg: string;
ResultCode: Integer;
begin
if (CurStep=ssPostInstall) then
begin
Log('CurStepChanged(ssPostInstall)');
TmpFileName := ExpandConstant('{app}') + '\InstallDriver.exe';
if Exec(TmpFileName, 'I', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then .......
但是,我无法找到一种方法让我的脚本在这个阶段重新启动。
我想到使用函数NeedRestart()
监视驱动程序安装程序的输出,但它是在此过程的早期调用的。
从内部调用驱动程序安装程序是否有意义NeedRestart()
?
NeedRestart
看起来不适合安装任何东西。但它会起作用,因为幸运的是它只被调用一次。不过,您可能希望以某种方式呈现进度,因为在调用期间向导表单几乎为空NeedRestart
.
另一种方法是使用AfterInstall范围 of the InstallDriver.exe
或驱动程序二进制文件本身(以稍后安装的为准)。
#define InstallDriverName "InstallDriver.exe"
[Files]
Source: "driver.sys"; DestDir: ".."
Source: "{#InstallDriverName}"; DestDir: "{app}"; AfterInstall: InstallDriver
[Code]
var
NeedRestartFlag: Boolean;
const
NeedRestartResultCode = 1;
procedure InstallDriver();
var
InstallDriverPath: string;
ResultCode: Integer;
begin
Log('Installing driver');
InstallDriverPath := ExpandConstant('{app}') + '\{#InstallDriverName}';
if not Exec(InstallDriverPath, 'I', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
begin
Log('Failed to execute driver installation');
end
else
begin
Log(Format('Driver installation finished with code %d', [ResultCode]))
if ResultCode = NeedRestartResultCode then
begin
Log('Need to restart to finish driver installation');
NeedRestartFlag := True;
end;
end;
end;
function NeedRestart(): Boolean;
begin
if NeedRestartFlag then
begin
Log('Need restart');
Result := True;
end
else
begin
Log('Do not need restart');
Result := False;
end;
end;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)