Список запросов учетных записей Windows в Inno Setup

Question

В моем проекте Inno Setup мне нужно разрешить пользователю выбирать учетную запись из списка всех локальных учетных записей на настраиваемой странице. Выбранная учетная запись будет использоваться для установки службы с настраиваемыми учетными данными. Как я могу это сделать?

Заранее спасибо!

Answer 1

Вы можете использовать класс WMIWin32_UserAccount для запроса списка учетных записей.

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

[Code]

var
  AccountPage: TInputOptionWizardPage;

procedure InitializeWizard();
var
  WMIService: Variant;
  WbemLocator: Variant;
  WbemObjectSet: Variant;
  I: Integer;
begin
  Log('InitializeWizard');
  AccountPage := CreateInputOptionPage(
    wpSelectTasks, 'Service account', '', 'Please select account for the service:',
    True, True);

  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  WMIService := WbemLocator.ConnectServer('localhost', 'root\CIMV2');
  WbemObjectSet :=
    WMIService.ExecQuery('SELECT * FROM Win32_UserAccount');
  if not VarIsNull(WbemObjectSet) then
  begin
    for I := 0 to WbemObjectSet.Count - 1 do
    begin
      AccountPage.Add(WbemObjectSet.ItemIndex(I).Caption);
    end;
    AccountPage.SelectedValueIndex := 0;
  end;
end;

function GetAccount(Param: string): string;
var
  I: Integer;
begin
  for I := 0 to AccountPage.CheckListBox.Items.Count - 1 do
  begin
    if AccountPage.Values[I] then Result := AccountPage.CheckListBox.Items[I];
  end;
end;

---

Связанные вопросы:

• Inno Setup Создайте индивидуальные ярлыки на всех рабочих столах всех пользователей.
• Inno Setup для создания пользователя в Windows