Inno Setup - 更改目录权限不会不时影响

Question

I have application which is installed in C://ProgramFiles . I need installation directory full access to user group to handle update process of application (File download, move, delete, write). So I update inno-script as below.

[InstallDelete]
Type: filesandordirs; Name: "{app}\assets"; BeforeInstall: TaskKill()

[Dirs]
Name: "{app}\assets"; Permissions: users-full; Flags: uninsalwaysuninstall;

[Files]
; Change file path when necessary
; Service, Launcher, Killer, runtime Binaries
Source: "..\..\_Source\Bin\*"; DestDir: "{app}"; Flags: recursesubdirs ignoreversion;

In _Source\\Bin folder (Source folder which contained all files) there is some files and assert folder.

The problem is, Installation did not change the assert folder permission time to time, for user group . (Most of times work fine). Here are comparison of two logs with and without issue.

Please give any idea or any possibility overcome this issue.

Answer 1

After referring the logs of installer, I found permission granted folder recreated when files copping.

So I decided to set user permission by executing windows icacls command after installer process. So I changed the script like below and after that work as expected.

// Following method will execute to grant user permisions after installation //
procedure PermissionUpdate();
var
  ResultCode: integer;
begin
  Log(ExpandConstant('Giving user group permission :O - CODE: - ' + ExpandConstant('"{app}/assets" /grant *S-1-5-32-545:(OI)(CI)M /t /c /q')));
  
  if Exec('icacls.exe', ExpandConstant('"{app}/assets" /grant *S-1-5-32-545:(OI)(CI)M /t /c /q'), '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
  begin
    Log('Successfully gave user group permission :)' + IntToStr(ResultCode));
  end
  else begin
    Log('Giving user group permission unsuccessfull :('  + IntToStr(ResultCode));
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if (CurStep=ssInstall) then
  begin
    if (IsUpgrade()) then
    begin
      UnInstallOldVersion();
    end;
  end
  else if (CurStep=ssPostInstall) then
  begin
    PermissionUpdate();
  end;
end;

So in this fix CurStepChanged method is event hander of the installer. I use post install step ( CurStep=ssPostInstall ) to run permission update method. In executing icacls method, S-1-5-32-545 is security identifier for User Group.

This may not the solution for which I posted but this fix worked for me.