Foros Club Delphi - Saber cuantos y cuales usuarios existen en la PC

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

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Saber cuantos y cuales usuarios existen en la PC (https://www.clubdelphi.com/foros/showthread.php?t=56713)

lfb	25-05-2008 19:59:07

Saber cuantos y cuales usuarios existen en la PC

Saludos colegas.

Quisiera que me ayudaran a encontrar una forma de saber cuantos usuarios existen en un PC y saber sus nombres de usuarios.

Muchas gracias de antemano

cHackAll

26-05-2008 17:43:31

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(0, PChar(string(UserList.item(Index).setting['LoginName'])), nil, 0);
end;

La franja horaria es GMT +2. Ahora son las 01:35:39.