Inno Setup制作安装包--调用外部程序

安装后自动运行一个，卸载时关闭一个程序（这个程序是软件的一部分，就需要这样操作）

[Code]

var

  ErrorCode: Integer;

  IsRunning: Integer;

//安装完成运行一个后台程序

procedure DeinitializeSetup();

begin

  ShellExec('open', ExpandConstant('{pf}') +'\ASS\PP.exe', '', '', SW_Hide, ewNoWait, ErrorCode);

end;

//卸载时判断客户端是否正在运行

function InitializeUninstall(): Boolean;

begin

  Result := true; //安装程序继续

//PP.exe程序需要处理close 参数的代码

  ShellExec('open', ExpandConstant('{pf}') +'\FDSPS\ks.exe', 'close', '', SW_HIDE, ewNoWait, ErrorCode);

end;

 

来自东子哥的Blog