查询Inno Setup中的Windows账户列表

在Inno Setup中查询Windows账户列表，可以使用Windows API函数来实现。以下是一个示例代码，可以获取系统中的所有本地用户和组：

[Code]
#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif

const
  advapi32 = 'advapi32.dll';

function NetUserEnum(servername: string; level, filter: DWORD; var bufptr: Pointer; prefmaxlen: DWORD; var entriesread, totalentries, resume_handle: DWORD): DWORD;
  external advapi32 name 'NetUserEnum' + AW;
function NetApiBufferFree(Buffer: Pointer): DWORD;
  external advapi32 name 'NetApiBufferFree';

type
  USER_INFO_0 = record
    usri0_name: PWideChar;
  end;
  PUSER_INFO_0 = ^USER_INFO_0;

function GetWindowsAccountsList(var AccountsList: TStringList): Boolean;
var
  pBuf: Pointer;
  dwEntriesRead, dwTotalEntries, dwResumeHandle: DWORD;
  i: Integer;
  pUserInfo: PUSER_INFO_0;
begin
  Result := False;
  AccountsList := TStringList.Create;

  if NetUserEnum('', 0, 0, pBuf, MAX_PREFERRED_LENGTH, dwEntriesRead, dwTotalEntries, dwResumeHandle) = 0 then
  begin
    pUserInfo := PUSER_INFO_0(pBuf);
    try
      for i := 0 to dwEntriesRead - 1 do
      begin
        AccountsList.Add(pUserInfo^.usri0_name);
        Inc(pUserInfo);
      end;
    finally
      NetApiBufferFree(pBuf);
    end;
    Result := True;
  end;
end;

procedure InitializeWizard;
var
  AccountsList: TStringList;
  i: Integer;
begin
  AccountsList := TStringList.Create;
  if GetWindowsAccountsList(AccountsList) then
  begin
    for i := 0 to AccountsList.Count - 1 do
    begin
      // 在这里使用AccountsList[i]进行操作
      MsgBox(AccountsList[i], mbInformation, MB_OK);
    end;
  end;
  AccountsList.Free;
end;

在上述示例中，我们使用了NetUserEnum函数从Windows API获取了用户列表。GetWindowsAccountsList函数用于将用户列表保存到一个TStringList中，然后在InitializeWizard过程中进行操作。你可以根据自己的需求对用户列表进行处理。

请注意，这段代码只能获取本地计算机上的用户列表。如果需要获取网络上的用户列表，可能需要使用其他的API函数进行操作。