Inno setup Inno安装程序中Windows帐户的查询列表

在我的Inno安装项目中，我需要允许用户从自定义页面上的所有本地帐户列表中选择一个帐户。所选帐户将用于安装具有自定义凭据的服务。 我怎么做这个

提前谢谢你

您可以使用来查询帐户列表

[Run]
Filename: sc.exe; Parameters: ... {code:GetAccount}

[代码]
变量
AccountPage:t输入选项向导页面；
过程初始化Wizard（）；
变量
WMIService：变体；
WbemLocator：变体；
WbemObjectSet：变量；
I：整数；
开始
日志（'InitializeWizard'）；
AccountPage:=CreateInputOptionPage(
wpSelectTasks，“服务帐户”，“请选择服务的帐户：”，
真的，真的）；
WbemLocator:=CreateOleObject（'WbemScripting.SWbemLocator'）；
WMIService:=WbemLocator.ConnectServer（'localhost'，'root\CIMV2'）；
WbemObjectSet：=
WMIService.ExecQuery（'SELECT*fromWin32_UserAccount'）；
如果不是VarisAll（WbemObjectSet），则
开始
对于I:=0到WbemObjectSet.Count-1 do
开始
AccountPage.Add（WbemObjectSet.ItemIndex（I）.Caption）；
结束；
AccountPage.SelectedValueIndex:=0；
结束；
结束；
函数GetAccount（参数：string）：string；
变量
I：整数；
开始
对于I:=0到AccountPage.CheckListBox.Items.Count-1 do
开始
如果AccountPage.Values[I]，则结果：=AccountPage.CheckListBox.Items[I]；
结束；
结束；

---

相关问题：