Получить список зарегистрированных под NT пользователей

// The NetUserEnum function provides information about all user accounts on a server. 

type

   USER_INFO_1 = record

     usri1_name: LPWSTR;
     usri1_password: LPWSTR;
     usri1_password_age: DWORD;
     usri1_priv: DWORD;
     usri1_home_dir: LPWSTR;
     usri1_comment: LPWSTR;
     usri1_flags: DWORD;
     usri1_script_path: LPWSTR;
   end
;
   lpUSER_INFO_1 = ^USER_INFO_1;

 function
 NetUserEnum(ServerName: PWideChar;
   Level,
   Filter: DWORD;
   var
 Buffer: Pointer;
   PrefMaxLen: DWORD;
   var
 EntriesRead,
   TotalEntries,
   ResumeHandle: DWORD): Longword; stdcall
; external
 'netapi32.dll';

 function
 NetApiBufferFree(pBuffer: PByte): Longint; stdcall
; external

 'netapi32.dll';

 {...}

 procedure
 TForm1.Button1Click(Sender: TObject);
 var

   EntiesRead: DWORD;
   TotalEntries: DWORD;
   UserInfo: lpUSER_INFO_1;
   lpBuffer: Pointer;
   ResumeHandle: DWORD;
   Counter: Integer;
   NetApiStatus: LongWord;
 begin

   ResumeHandle := 0;
   repeat

     // NetApiStatus := 
    // NetUserEnum(PChar('\NT-Domain'), 1, 0, lpBuffer, 0,EntiesRead, TotalEntries, ResumeHandle); 
    NetApiStatus := NetUserEnum(nil
, 1, 0, lpBuffer, 0, EntiesRead,
       TotalEntries, ResumeHandle);
     UserInfo     := lpBuffer;

     for
 Counter := 0 to
 EntiesRead - 1 do

     begin

       listbox1.Items.Add(WideCharToString(UserInfo^.usri1_name) + ' --> ' +
         WideCharToString(UserInfo^.usri1_comment));
       Inc(UserInfo);
     end
;

     NetApiBufferFree(lpBuffer);
   until
 (NetApiStatus <> ERROR_MORE_DATA);
 end
;

Другое по теме:

• Определение системной информации
• Как передать при создании нити (Tthread) ей некоторое значение
• Частичная блокировка и разблокировка функций клавиатуры и мышки