Come impostare "Esegui come amministratore" su un file utilizzando Inno Setup

Question

Sto creando un programma di installazione utilizzando Inno Setup. Come parte del processo di installazione sto installando Tomcat. Su Windows 7 soffro il problema descritto qui:

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

posso risolvere il problema impostando manualmente il 'Esegui come amministratore' sul tomcat7w.exe (il problema e la causa principale è la stessa per tomcat7 pure) , ma non so come farlo attraverso Inno Setup.

sto trovando le discussioni che spiegano in esecuzione some_program.exe come amministratore, ma qui il programma viene avviato all'avvio del servizio Tomcat (ad esempio, su una macchina start-up), quindi ho bisogno di un senso di bandiera utilizzando Inno Setup per 'Run come amministratore 'piuttosto che eseguirlo.

Grazie

Answer 1

È possibile aggiungere una voce del Registro di sistema in [Registry] sezione che fisserà run as Administrator come azione predefinita per l'esecuzione di questa applicazione.

Esempio:

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 

Answer 2

aggiungere l'attributo runascurrentuser bandiera per il [Run] sezione

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

Answer 3

Se davvero si vuole impostare la "Esegui come amministratore" bandiera della scorciatoia (come opposto per forzare l'esecuzione dell'applicazione di destinazione con i privilegi di amministratore), è possibile utilizzare questo codice:

[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; 

---

Questo si basa su:

• LinkFlags in [MS-SHLLINK]: Shell Link (.LNK) Binary File Format;
• How to create a Run As Administrator shortcut using Powershell;
• How can I use JScript to create a shortcut that uses "Run as Administrator"

---

provata su versione Unicode di Inno Setup. Ma dovrebbe, ancor più naturalmente, lavorare anche sulla versione Ansi.

---

Se si desidera consentire all'utente di eseguire il programma al termine dell'installazione utilizzando una voce postinstall in [Run] sezione verrà naturalmente necessario richiedere esplicitamente l'elevazione.

Se l'installazione viene eseguito con privilegi di amministratore, si può semplicemente aggiungere runascurrentuser flag:

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

Se l'installazione viene eseguito senza privilegi di amministratore, impostare Verb parameter a runas (per questo è necessario anche shellexec bandiera) :

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