VPF::Получить список пользователей

Poseidon

Дата 19.5.2005, 03:50 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

GetLocalUserList - возвращает список пользователей (Windows NT, Windows 2000)

Код

unit Func; 

interface 

uses Sysutils, Classes, Stdctrls, Comctrls, Graphics, Windows; 

//////////////////////////////////////////////////////////////////////////////// 
{$EXTERNALSYM NetUserEnum} 
function NetUserEnum(servername: LPWSTR; 

  level, 
  filter: DWORD; 
  bufptr: Pointer; 
  prefmaxlen: DWORD; 
  entriesread, 
  totalentries, 
  resume_handle: LPDWORD): DWORD; stdcall; 
external 'NetApi32.dll' Name 'NetUserEnum'; 

function NetApiBufferFree(Buffer: Pointer {LPVOID}): DWORD; stdcall; 

external 'NetApi32.dll' Name 'NetApiBufferFree'; 
//////////////////////////////////////////////////////////////////////////////// 

procedure GetLocalUserList(ulist: TStringList); 

implementation 

//------------------------------------------------------------------------------ 
// возвращает список пользователей локального хоста 
//------------------------------------------------------------------------------ 

procedure GetLocalUserList(ulist: TStringList); 
const 

  NERR_SUCCESS = 0; 
  FILTER_TEMP_DUPLICATE_ACCOUNT = $0001; 
  FILTER_NORMAL_ACCOUNT = $0002; 
  FILTER_PROXY_ACCOUNT = $0004; 
  FILTER_INTERDOMAIN_TRUST_ACCOUNT = $0008; 
  FILTER_WORKSTATION_TRUST_ACCOUNT = $0010; 
  FILTER_SERVER_TRUST_ACCOUNT = $0020; 

type 

  TUSER_INFO_10 = record 
    usri10_name, 
      usri10_comment, 
      usri10_usr_comment, 
      usri10_full_name: PWideChar; 
  end; 
  PUSER_INFO_10 = ^TUSER_INFO_10; 

var 

  dwERead, dwETotal, dwRes, res: DWORD; 
  inf: PUSER_INFO_10; 
  info: Pointer; 
  p: PChar; 
  i: Integer; 
begin 

  if ulist = nil then 
    Exit; 
  ulist.Clear; 

  info := nil; 
  dwRes := 0; 
  res := NetUserEnum(nil, 
    10, 
    FILTER_NORMAL_ACCOUNT, 
    @info, 
    65536, 
    @dwERead, 
    @dwETotal, 
    @dwRes); 
  if (res <> NERR_SUCCESS) or (info = nil) then 
    Exit; 
  p := PChar(info); 
  for i := 0 to dwERead - 1 do 
  begin 
    inf := PUSER_INFO_10(p + i * SizeOf(TUSER_INFO_10)); 
    ulist.Add(WideCharToString(PWideChar((inf^).usri10_name))); 
  end; 

  NetApiBufferFree(info); 
end; 

end.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »