Jak ustawić "Uruchom jako administrator" dla pliku przy użyciu Inno Setup

Question

Tworzę instalator za pomocą Inno Setup. W ramach procesu instalacji instaluję Tomcat. W Windows 7 I cierpią z powodu problemu opisanego tutaj:

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

mogę to naprawić poprzez ręczne ustawienie „Uruchom jako administrator” na tomcat7w.exe (kwestia, a przyczyną jest taka sama dla tomcat7 również) , ale nie wiem jak to zrobić poprzez Inno Setup.

Znajduję wątki wyjaśniające działanie some_program.exe jako administratora, ale tutaj program jest uruchamiany po uruchomieniu usługi Tomcat (np. Przy uruchamianiu komputera), więc potrzebuję sposobu na oznaczenie jej przy użyciu Inno Setup, aby uruchomić jako administrator "zamiast go uruchamiać.

Dzięki

Answer 1

Możesz dodać wpis do rejestru w [Registry] sekcji, która będzie wyznaczać run as Administrator jako domyślnego działania dla prowadzenia tej aplikacji.

Przykład:

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

Dodaj atrybut runascurrentuser flagę do sekcji

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

Answer 3

[Run] Jeśli naprawdę chcesz, aby ustawić "Uruchom jako administrator" banderą skrótu (jako przeciwieństwo aby wymusić uruchomienie aplikacji docelowej z uprawnieniami administratora), możesz użyć tego kodu:

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

---

ta opiera się na:

• LinkFlags w [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"

---

Testowane na wersji Unicode Inno Setup. Ale powinno to, nawet bardziej naturalnie, działać również w wersji Ansi.

---

Jeśli chcesz zezwolić użytkownikowi na wykonanie programu na końcu instalacji za pomocą wpisu postinstall w [Run] sekcji, będzie oczywiście trzeba jawnie zażądać elewację.

Jeśli instalator uruchamia z uprawnienia administratora, można po prostu dodać runascurrentuser flag:

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

Jeśli instalator uruchamia bez uprawnienia administratora, ustaw Verb parameter do runas (do tego trzeba również shellexec flagę) :

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