Foros Club Delphi - Tipos de usuarios en XP

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Tipos de usuarios en XP (https://www.clubdelphi.com/foros/showthread.php?t=64747)

Tipos de usuarios en XP

Saludos cordiales,

Me gustaría conocer un listado de los usuarios que hay en un equipo bajo Windows XP y saber qué tipo de usuarios son.
Haciendo lo siguiente sé cuantos usuarios hay pero NO SE CÓMO SABER A QUE TIPO PERTENECEN ("Administradores", "duplicadores" etc....).

¿Me pueden ayudar?. Gracias.

procedure TForm1.Button1Click(Sender: TObject);
var
UserList: Variant;
Index: Cardinal;
begin
UserList := CreateOleObject('Shell.Users');
for Index := 0 to UserList.length - 1 do
MessageBox(0, PChar(string(UserList.item(Index).setting['LoginName'])), nil, 0);
end;

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
 UserList: Variant;
 Index: Cardinal;
begin
 UserList := CreateOleObject('Shell.Users');
 for Index := 0 to UserList.length - 1 do
  MessageBox(Handle, PChar(string(UserList.Item(Index).setting['LoginName']) + #9 + IntToStr(UserList.Item(Index).setting['AccountType'])), nil, 0);
end;

oh,

Sabía que iban por ahí los tiros, pero oye, que no atinaba.

Ya sólo busco la relación entre el número y el tipo de usuario y solucionado el problema.

Gracias amigo.