从Inno Setup向GAC添加程序集

[Code]
const
  GACUTIL = 'C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319\gacutil.exe';

function AddAssemblyToGAC(const AssemblyFile: String): Boolean;
var
  ResultCode: Integer;
begin
  if not FileExists(GACUTIL) then
  begin
    Log('Error: gacutil.exe not found');
    Result := False;
  end
    else
  begin
    Exec(GACUTIL, '/i ' + AssemblyFile, '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
    Result := ResultCode = 0;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    if not AddAssemblyToGAC(ExpandConstant('{app}\MyAssembly.dll')) then
      MsgBox('Error: Failed to add assembly to GAC', mbError, MB_OK);
  end;
end;