Список Пользователей Windows Delphi

Delphi предоставляет много возможностей для работы с пользователями Windows, в том числе и для получения списка пользователей. Для этого можно использовать класс TUserInfo из модуля JwaUserEnv.

Пример кода:

uses
  JwaUserEnv, JwaWinError;
...
var
  buf: PWideChar;
  len: DWORD;
  I: Integer;
begin
  if not GetEnvironmentVariableW('USERPROFILE', nil, 0) then
    RaiseLastOSError;
  len := GetUserNameW(nil, 0);
  if len = 0 then
    RaiseLastOSError;
  GetMem(buf, len * SizeOf(Char));
  try
    if not GetUserNameW(buf, len) then
      RaiseLastOSError;
    Writeln(buf);
    Writeln('Active Users:');
    for I := 0 to High(TUserInfo.GetUserInfoArray) do
    begin
      Writeln('  ', TUserInfo.GetUserInfoArray[I]^.FullName);
    end;
  finally
    FreeMem(buf);
  end;
end;