gan-installation-package

gan-installation-package copied to clipboard

bajins

安装前无法自动卸载

1

### 说明 在InitializeSetup中有执行卸载的程序，但无法生效，原因是卸载的代码放在了while 判断运行中的循环中，如果没有运行中程序将不会执行卸载程序。 ``` //修改前 function InitializeSetup():boolean; var IsAppRunning: boolean; IsAppRunning1: boolean; ResultStr: String; ResultCode: Integer; begin Result := true; // 第二步，安装时判断客户端是否正在运行 begin Result:= true;//安装程序继续 IsAppRunning:= IsModuleLoaded('YNote.exe'); IsAppRunning1:= IsModuleLoaded('YNote_1.exe');...

mathcoder23