Inno setup Inno安装程序创建具有管理权限的HTA快捷方式
我正在使用Inno安装程序创建一个桌面快捷方式，用于打开保存在Windows 7程序文件中的文件。此HTA文件调用需要以管理员身份运行的外部exe文件Inno setup Inno安装程序创建具有管理权限的HTA快捷方式,inno-setup,uac,hta,Inno Setup,Uac,Hta,我正在使用Inno安装程序创建一个桌面快捷方式，用于打开保存在Windows 7程序文件中的文件。此HTA文件调用需要以管理员身份运行的外部exe文件 所以，要做到这一点，我想自动创建一个快捷方式，使用Inno安装程序作为管理员运行。这里的问题是快捷方式指向HTA文件而不是exe。我该怎么做呢？这个问题的直接答案是创建mshta.exe的快捷方式，并将HTA的文件名作为其参数。mshta.exe的快捷方式可以标记为以管理员身份运行。如果您的可执行文件需要管理员访问权限，则您不应尝试提升HTML应
所以，要做到这一点，我想自动创建一个快捷方式，使用Inno安装程序作为管理员运行。这里的问题是快捷方式指向HTA文件而不是exe。我该怎么做呢？这个问题的直接答案是创建mshta.exe的快捷方式，并将HTA的文件名作为其参数。mshta.exe的快捷方式可以标记为以管理员身份运行。如果您的可执行文件需要管理员访问权限，则您不应尝试提升HTML应用程序。检查此示例：
<html>
<head>
<title>HTA Helpomatic</title>
<HTA:APPLICATION
ID="oHTA"
APPLICATIONNAME="HTAHelpomatic"
SCROLL="yes"
SINGLEINSTANCE="yes"
>
<!-- ID="objHTAHelpomatic" -->
<!-- WINDOWSTATE="maximize" -->
</head>
<SCRIPT Language="VBScript">
If HTAElevate() = True Then
CreateObject("WScript.Shell").Run "mmc.exe compmgmt.msc", , True
Call Main()
End If
Sub Main()
MsgBox "HTA-Ende", 4096
End Sub
'*** v13.3 *** www.dieseyer.de *****************************
Function HTAElevate()
'***********************************************************
' http://dieseyer.de/scr/elevate.hta
' Unter Windows x64 laufen VBS' nach einem Doppelklick in der x64-Umgebung
' mit %WinDi%\System32\wscript.exe oder mit %WinDi%\System32\cscript.exe.
' In der x64-Umgebung laufen VBS aber nicht (richtig). Die Prozedur
' HTAElevate() erkennt dies und startet ggf. das VBS in der
Const Elev = " /elevated"
' MsgBox oHTA.commandLine, , "5016 :: "
' Trace32Log "5018 :: oHTA.commandLine: ==" & oHTA.commandLine & "==", 1
HTAElevate = True
' If InStr( LCase( oHTA.commandLine ), Elev) > 0 then MsgBox oHTA.commandLine, , "5022 :: "
If InStr( LCase( oHTA.commandLine ), Elev) > 0 then Exit Function
On Error Resume Next
window.resizeto 750, 10 ' : window.moveto screen.width / 2, screen.height / 2
On Error GoTo 0
' MsgBox oHTA.commandLine, , "5030 :: "
createobject("Shell.Application").ShellExecute "mshta.exe", oHTA.commandLine & Elev, "", "runas", 1
HTAElevate = False
self.close
End Function ' HTAElevate()
</SCRIPT>
<body>
</body>
</html>
HTA助推器
如果HTAElevate（）=True，则
CreateObject（“WScript.Shell”）。运行“mmc.exe compmgmt.msc”，True
调用Main（）
如果结束
副标题（）
MsgBox“HTA Ende”，4096
端接头
'***v13.3***www.dieseyer.de*****************************
函数HTAElevate（）
'***********************************************************
' http://dieseyer.de/scr/elevate.hta
“Unter Windows x64 laufen VBS”在x64 Umgebung的双通道中
'mit%WinDi%\System32\wscript.exe或mit%WinDi%\System32\cscript.exe。
“在x64乌姆盖邦-劳芬VBS阿伯尼希特（richtig）。Prozedur模具
他死了，然后开始了。das VBS在der中的应用
常量Elev=“/highted”
'MsgBox oHTA.commandLine，“5016:：”
'Trace32Log“5018:：oHTA.commandLine:==”&oHTA.commandLine&“==”，1
HTAElevate=True
'如果InStr（LCase（oHTA.commandLine），Elev）>0，那么MsgBox oHTA.commandLine，“5022:”
如果InStr（LCase（oHTA.commandLine），Elev）>0，则退出函数
出错时继续下一步
window.resizeto 750，10'：window.moveto screen.width/2，screen.height/2
错误转到0
'MsgBox oHTA.commandLine，“5030:”
createobject（“Shell.Application”）.ShellExecute“mshta.exe”、oHTA.commandLine&Elev、“，”runas“，1
HTAElevate=False
自我封闭
结束函数“HTAElevate（）
HTA