论坛风格切换切换到宽版
  • 2038阅读
  • 3回复

[code]直接运行安装包(非静默安装),关闭该驱动安装主安装界面将提示 [复制链接]

上一主题 下一主题
离线969511048
 

发帖
151
金钱
1440
威望
144
只看楼主 倒序阅读 0 发表于: 2014-05-16
[code]段如何添加代码直接运行驱动安装包不用静默安装
但要它不安装该驱动,进行提示部分程序无法运行
离线969511048

发帖
151
金钱
1440
威望
144
只看该作者 1 发表于: 2014-05-16
  1. procedure CurStepChanged(CurStep: TSetupStep);
  2. var
  3.   ErrorCode: Integer;
  4. begin
  5.   if CurStep = ssPostInstall then
  6.    begin
  7.    WizardForm.StatusLabel.Caption := '正在安装 WebDriverSilentInstall,请稍候...';
  8.    ExtractTemporaryFile('WebDriverSilentInstall.exe');
  9.    Exec(ExpandConstant('{tmp}\WebDriverSilentInstall.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
  10.   end
  11.    else
  12.   MsgBox('您尚未安装相关驱动,该程序将无法运行。', mbInformation, MB_OK);
  13. end;
上面是我胡想的,请版主批改修正,最好那MsgBox 对话框有两个按钮
“重新安装驱动”,“手动安装驱动”
离线969511048

发帖
151
金钱
1440
威望
144
只看该作者 2 发表于: 2014-05-16


还有更好的方法吗





离线969511048

发帖
151
金钱
1440
威望
144
只看该作者 3 发表于: 2014-05-17
算了,我在运行段写下就好了