Inno Setup - 以管理员身份注册组件 [英] Inno Setup - Register components as an administrator
问题描述
基于优秀的Excel加载项安装程序(Daniel's XL Toolbox),我已经构建了一个安装文件,其中需要注册一些ActiveX的
[文件]
;包含文件使得
中包含所有.XLA和.XLAM文件。 SOURCEDIR到项目。
资料来源:c:\source\path\MSCOMCTL.OCX; \
DestDir:\users\public\EzPasteFiles;标志:regserver
资料来源:c:\source\path\DAS_AX_Knob.dll; \
DestDir:\users\public\EzPasteFiles;标志:regserver
资料来源:c:\source\path\GIF89.DLL; \
DestDir:\users\public\EzPasteFiles;标志:regserver
我需要安装插件,然后在开始注册文件之前,检查完成关于管理员权限,如果用户没有,将显示一条消息,要求输入管理员密码,以便可以进行注册。我知道它可以在设置开始时完成,但是如果它是一个标准用户帐户,则不会激活该插件。插件需要注册的组件,标准用户无法正确安装。
在注册开始之前,我正在寻找类似这样的消息:
MyProgChecked:= not(IsAdminLoggedOn或IsPowerUserLoggedOn);
如果MyProgChecked = True然后
开始
MsgBox(
'请注意:'#13#13
'似乎你不会因为管理员# 13#13
'请中止并重新安装EzPaste作为管理员'#13#13
'(要安装作为管理员,只需将exe设置保存到任何地方,然后右键单击即可获得此功能或请您的IT管理员正确的指示)',
mbConfirmation,MB_OK);
{弹出消息请求Pwd}
ExitProcess(0);
结束
我自然对任何其他方法开放
我也很高兴知道一个没有管理员权限的域用户(Windows服务器)应该继续安装加载项。
您可以以管理员身份执行 regsvr32.exe
,这样:
[文件]
资料来源:MyDll.dll; DestDir:{app}; AfterInstall:RegMyDll
[代码]
程序RegMyDll;
var
路径:string;
RegSvr:string;
参数:string;
注册:Boolean;
ErrorCode:整数;
begin
路径:= ExpandConstant(CurrentFilename);
RegSvr:='regsvr32.exe';
参数:=格式('/ s%s',[路径]);
日志(格式('使用'%s'%s'注册%s),[Path,RegSvr,Params]));
注册:=
ShellExec('runas',RegSvr,Params,',SW_HIDE,ewWaitUntilTerminated,ErrorCode);
如果注册和(ErrorCode = 0)然后
开始
日志(格式('注册%s',[路径]));
end
else
begin
MsgBox(Format('Registering%s failed with code%d',[Path,ErrorCode]),mbError,MB_OK);
结束
结束
替代实现是创建用于注册的子服务器,只需要管理员权限。
对于类似的示例,请参阅 Inno安装程序 - 从需要权限的安装程序访问非特权帐户文件夹。
或使用相反的方法。需要管理员权限使用
[安装]
/ pre>
PrivilegesRequired = admin
(这是默认值)
但是将文件部署到原始用户文件夹。
请参阅我的答案 Inno安装程序始终安装在管理员的AppData目录。Based on the excellent Excel add-in installer (Daniel's XL Toolbox), I have built a setup file that among other things needs to register some ActiveX's
[Files] ; The include file makes adds all .XLA and .XLAM files contained in the ; SOURCEDIR to the project. Source: "c:\source\path\MSCOMCTL.OCX"; \ DestDir: "\users\public\EzPasteFiles"; Flags: regserver Source: "c:\source\path\DAS_AX_Knob.dll"; \ DestDir: "\users\public\EzPasteFiles"; Flags: regserver Source: "c:\source\path\GIF89.DLL"; \ DestDir: "\users\public\EzPasteFiles"; Flags: regserver
I need the addin to install, then before starting to register the files a check is done about administrator rights and if the user has none, a message is displayed asking for entering the admin password so that registration can take place. I am aware that it can be done at the beginning of the setup, but then the addin will not be activated, if it is a standard user account. The addin needs registered components, a standard user can't install it properly.
I am looking for something like this to fire before the registration starts:
MyProgChecked := not(IsAdminLoggedOn or IsPowerUserLoggedOn); if MyProgChecked = True then begin MsgBox( 'Kindly notice:' #13#13 'It seems as you are not looged as an administrator' #13#13 'Please abort and reinstall EzPaste AS an administrator' #13#13 '(To install As an Adminstrator, just save the exe setup anywhere then Right Click on it to get to this feature or ask your IT administrator for proper directives)', mbConfirmation, MB_OK); { Popup message asking for Pwd } ExitProcess(0); end;
I am naturally open for any other approach
I'll be glad also to understand how a domain user (Windows server) without admin rights should proceed to install the addin.
解决方案You can execute
regsvr32.exe
"as administrator", this way:[Files] Source: "MyDll.dll"; DestDir: "{app}"; AfterInstall: RegMyDll [Code] procedure RegMyDll; var Path: string; RegSvr: string; Params: string; Registered: Boolean; ErrorCode: Integer; begin Path := ExpandConstant(CurrentFilename); RegSvr := 'regsvr32.exe'; Params := Format('/s "%s"', [Path]); Log(Format('Registering %s using "%s" %s', [Path, RegSvr, Params])); Registered := ShellExec('runas', RegSvr, Params, '', SW_HIDE, ewWaitUntilTerminated, ErrorCode); if Registered and (ErrorCode = 0) then begin Log(Format('Registered %s', [Path])); end else begin MsgBox(Format('Registering %s failed with code %d', [Path, ErrorCode]), mbError, MB_OK); end; end;
Alternative implementation is to create subinstaller for the registration only that will require Administrator privileges.
For a similar example, see Inno Setup - Access unprivileged account folders from installer that requires privileges.
Or use an opposite approach. Require administrator privileges using
[Setup] PrivilegesRequired=admin
(which is default)
But deploy files to the original user folder.
See my answer to Inno Setup always installs into admin's AppData directory.这篇关于Inno Setup - 以管理员身份注册组件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!