Как вытащить из XP список пользователей

[UnD)eaD)Snake]

Как можно узнать имена всех пользователей винды?

[UnD)eaD)Snake]

сам нашел:
function GetUserFromWindows: string;
var
UserName : string;
UserNameLen : Dword;
begin
UserNameLen := 255; SetLength(userName, UserNameLen);
if GetUserName(PChar(UserName), UserNameLen) then
Result := Copy(UserName,1,UserNameLen - 1)
else Result := 'Unknown';
end;

[Stilet]

Это даст тебе только одного пользователя для получения списка рули NetWkstaUserEnum

[sysyman]

Может мне кто сможет подсказать?
Дело в том что мне надо получить список зарегистрированных пользователей в винде. Я по крайней мере нашел 2 разных способа получения этого списка, но выводятся пользователи те что у меня зарегистрированы и вместе с ними встроенная учетная запись админа , службы поддержки и другие.А мне надо только те которые появляются в приветствии во время загрузки винды.
Исходники прилагаю.

[Air]

Если Вам это поможет.
В реестре
HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\Winlogon\SpecialA ccounts\UserList
содержится список пользователей.
У которых значение 0 значит они не отображаются, если 1 от отображаются в приветствии. если пользователя не значит значение 0.
Я так пользователей прячу.

Так вот, берёте Ваш (общий) список и удаляете тех кто в реестре и почти готовый результат.
Хотя должен быть другой путь, этот как усложнённая альтернатива.

[sysyman]

Конечно идея с реестром неплохая, но когда я заглянул в реестр по указанному пути то обнаружил всего одну знакомую запись , это help assistant и значение у него ноль, но другие записи мне ни о чем не говорят и даже близко не похожи на имена пользователей в системе .Я пробывал менять их значения с 1000 на 0, но при загрузке винды пользователи не менялись , значит скорее всего этот ключ не совсем то что мне нужно. Пробывал я схитрить. С помощью проги reg organizer я сделал снимок реестра, затем в учетных записях у одного из пользователей я сменил имя и после этого сделал еще один снимок реестра исравнил эти два снимка . В результате я выявил все изменения что вносит винда в реестр когда я меняю имя пользователя, вобщем я нашел ключ где винда хранит имена пользователей ,но он вроде как зашифрован и я опять в тупике. Должен быть какой то другой путь!
Ключ что я нашел ,по этому пути:HKEY_LOCAL_MACHINE\SOFTWARE\Mi crosoft\Cryptography\RNG

[Air]

Сообщение от sysyman

но другие записи мне ни о чем не говорят и даже близко не похожи на имена пользователей в системе

И не надо чтоб о чём-то говорили.
Я имел в виду.

Сообщение от Air

Так вот, берёте Ваш (общий) список и удаляете тех кто в реестре и почти готовый результат.

[vitalik007]

function NetQueryDisplayInformation(ServerName: LPCWSTR; Level, Index, EntriesRequested, PrefMaxLen: DWord; var ReturnedCount: DWord; var Buffer: Pointer): dword; stdcall;external 'netapi32.dll' name 'NetQueryDisplayInformation';

 PNET_DISPLAY_USER = ^TNET_DISPLAY_USER;
  TNET_DISPLAY_USER = record
    usri1_name : LPWSTR;
    usri1_comment : LPWSTR;
    usri1_flags : DWord;
    usri1_full_name : LPWSTR;
    usri1_user_id : DWord;
    usri1_next_index : DWord;
  end;
TNetDisplayUserArray = array[0..(MaxInt div SizeOf(TNET_DISPLAY_USER))-1] of TNET_DISPLAY_USER;


procedure Tform1.GetuserList(list:tstrings);
var
moredata:boolean;
S : TLMWidechar;
error:dword;
readEntries:cardinal;
buffer:pointer;
I:integer;
begin
moredata:=true;
While Moredata do
if Netapi then
begin
    if (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion < 5) then
    server:='//'+server else server:=server;
    s.Value:=nil;
    try
      CvtToWideChar(server,s);
      error:=NetQueryDisplayInformation(s.Value,1,0,Dword(-1),Dword(-1),readentries,buffer);
      if ((Error = 0) or (Error = ERROR_MORE_DATA)) then begin
        try
        if readentries>0 then
        for i:=0 to readentries-1 do
        list.Add(TNetDisplayUserArray(buffer^)[i].usri1_name);
        MoreData := (Error = ERROR_MORE_DATA);
        finally
        NetApiBufferFree(buffer);
        end;
        end;
    finally
      freemem(s.Value,s.Length);
    end;
end;
end;

[Air]

"vitalik007", если не секрет, где Вы взяли этот код.

Поправки к коду.

type
 PNET_DISPLAY_USER = ^TNET_DISPLAY_USER;
 TNET_DISPLAY_USER = record
 usri1_name : LPWSTR;
 usri1_comment : LPWSTR;
 usri1_flags : DWord;
 usri1_full_name : LPWSTR;
 usri1_user_id : DWord;
 usri1_next_index : DWord;
end;

type
NET_API_STATUS=DWord;
TLMWideChar = record
Value: PWideChar;
Length: DWord;
end;

var
  Netapi:boolean;
  server:String; //определяет имя компьютера, я так понял...

...

procedure CvtToWideChar(const S:string; var WS:TLMWideChar);
var
S1: string;
begin
if WS.Value <> nil then
 FreeMem(WS.Value,WS.Length);
S1:=Trim(S);
if Length(S1) > 0 then
 begin
  WS.Length:=(Length(S1)+1)*2;
  GetMem(WS.Value,WS.Length);
  StringToWideChar(S1,WS.Value,WS.Length);
 end
else
 begin
  WS.Length:=0;
  WS.Value:=nil;
 end;
end;

Однако, количество пользователей определяет, но не определяет их имена.

Строчка не понятна

 list.Add(TNetDisplayUserArray(buffer^)[i].usri1_name);

переделал

list.Add(TNetDisplayUserArray[i].usri1_name);

заработала, но без результатно.

Часть инфы взята с http://topic.csdn.net/t/20030212/11/1419961.html

[B_N]

http://programmersforum.ru/showpost....72&postcount=2