yingyingququ的博客

procedure EnvAddPath(installPath: string);var Paths: string;begin { 检索当前的路径 } if not RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', Paths) then Paths := ''; if Path...

效果图：代码如下：function InitializeSetup(): Boolean;var Version: string; begin Result:= TRUE; Flag:='install'; //read the version if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\xxx\xxxx\config', 'Version', Version) then beg...

inno Setup打包在安装过程中添加自定义wizard或者操作步骤可以从3个维度去定位执行1）step change对应：procedure CurStepChanged(CurStep: TSetupStep);2）page change对应：procedure CurPageChanged(CurPageID: Integer);3）button点击对应：function NextButtonClick(CurPageID: Integer): Boolean;定义.

网上已经有很多前辈有过相似代码，在使用过冲中编译出错或者由于大小写或 函数调用的小问题，导致实际编译运行并非预期结果，下面是本人将前辈们的bug修改后，实测可用的代码procedure SetEnv(aEnvName, aEnvValue: string; aIsInstall, aIsInsForAllUser: Boolean);//设置环境变量函数varsOrgValue: string;S1, sFileName, sInsFlag: string;bRetValue, bInsForA