Comment définir 'Exécuter en tant qu'administrateur' sur un fichier en utilisant Inno Setup

Je suis de la création d'un installateur à l'aide de Inno Setup. Dans le cadre de la procédure d'installation, je suis de l'installation de Tomcat. Sur Windows 7 je souffre de ce problème décrit ici:

http://blog.paulbouwer.com/2010/10/23/the-case-of-the-annoying-tomcat-6-monitor/

Je peux le résoudre en réglant manuellement la "Exécuter en tant qu'administrateur" sur tomcat7w.exe (le problème et la cause est la même pour tomcat7 ainsi), mais je ne sais pas comment le faire par le biais de Inno Setup.

Je suis la recherche de threads qui expliquent l'exécution de some_program.exe en tant qu'administrateur, mais ici, le programme est démarré lorsque le service Tomcat commence (par exemple sur le démarrage de la machine), j'ai donc besoin d'un moyen de marquer à l'aide de Inno Setup 'Exécuter en tant qu'administrateur" plutôt que de l'exécuter.

Grâce

source d'informationauteur learnAndImprove

  1. 12

    Vous pouvez ajouter une entrée de Registre dans [Registry] Section, qui fixera run as Administrator comme une action par défaut pour l'exécution de cette application.

    Exemple:

    Root: "HKLM"; Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; \
    ValueType: String; ValueName: "{app}\tomcat7w.exe"; ValueData: "RUNASADMIN"; \
    Flags: uninsdeletekeyifempty uninsdeletevalue; MinVersion: 0,6.1
  2. 11

    Si vous voulez vraiment définir la "Exécuter en tant qu'administrateur" drapeau du raccourci (comme face à forcer la cible à l'application de s'exécuter avec des privilèges d'administrateur), vous pouvez utiliser ce code:

    [Icons]
Name: "{userdesktop}\My Program"; Filename: "{app}\MyProg.exe"; \
  AfterInstall: SetElevationBit('{userdesktop}\My Program.lnk')
    [Code]

procedure SetElevationBit(Filename: string);
var
  Buffer: string;
  Stream: TStream;
begin
  Filename := ExpandConstant(Filename);
  Log('Setting elevation bit for ' + Filename);

  Stream := TFileStream.Create(FileName, fmOpenReadWrite);
  try
    Stream.Seek(21, soFromBeginning);
    SetLength(Buffer, 1);
    Stream.ReadBuffer(Buffer, 1);
    Buffer[1] := Chr(Ord(Buffer[1]) or $20);
    Stream.Seek(-1, soFromCurrent);
    Stream.WriteBuffer(Buffer, 1);
  finally
    Stream.Free;
  end;
end;

    Ceci est basé sur:

    Testé sur la version Unicode de Inno Setup. Mais il devrait, encore plus naturellement, le travail sur la version Ansi aussi, si vous devez utiliser la version Unicode de toute façon.

    Si vous souhaitez autoriser l'utilisateur à exécuter le programme à la fin de l'installation à l'aide d'un postinstall entrée dans [Run] section, vous aurez bien sûr besoin de demander explicitement l'élévation.

    Si le programme d'installation s'exécute avec des privilèges d'Administrateur, vous pouvez simplement ajouter runascurrentuser drapeau:

    [Run]
Filename: "{app}\MyProg.exe"; Description: "Launch application"; \
    Flags: postinstall nowait skipifsilent runascurrentuser

    Si le programme d'installation s'exécute sans des privilèges d'Administrateur, ensemble Verbe paramètre à runas (pour que vous ayez également besoin shellexec drapeau):

    [Run]
Filename: "{app}\MyProg.exe"; Verb: runas; Description: "Launch application"; \
    Flags: postinstall nowait skipifsilent shellexec
  3. 1

    Ajouter le runascurrentuser drapeau de l'attribut à la [Run] section

    Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: runascurrentuser nowait postinstall skipifsilent;