Получение списка пользователей компьютера(ОС Windows) на Delphi 6

Приведённый в листинге ниже программный код демонстрирует получение информации о пользователях операционной системы Windows из программы на Delphi 6. Создайте новый проект, затем разместите на форме Button1 и Memo1 а затем замените весь программный код на предложенный в следующем листинге. Каких либо дополнительных модулей в uses подключать не потребуются, достаточно тех которые автоматически будут добавлены при создании нового проекта.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$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): DWORD; stdcall;
external 'NetApi32.dll' Name 'NetApiBufferFree';

procedure TForm1.Button1Click(Sender: TObject);
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: LPWSTR;
  end;
 
  PUSER_INFO_10 = ^TUSER_INFO_10;
 
var
  dwERead, dwETotal, dwRes, res: DWORD;
  inf: PUSER_INFO_10;
  info: Pointer;
  i: integer;
begin
  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;
  inf := info;
  for i := 0 to dwERead - 1 do
  begin
    Memo1.Lines.Add('Итерация цикла №'+IntToStr(i));
    Memo1.Lines.Add('name:'+WideCharToString(inf^.usri10_name));
    Memo1.Lines.Add('comment:'+WideCharToString(inf^.usri10_comment));
    Memo1.Lines.Add('usr_comment:'+WideCharToString(inf^.usri10_usr_comment));
    Memo1.Lines.Add('full_name:'+WideCharToString(inf^.usri10_full_name));
    Inc(inf);
  end;
  NetApiBufferFree(info);
end;

end.

Как моём случаи выгядел результат выполнения программы в операционной системе Windows 10 x64 я привел на следующем скринсшоте.

Пример программы на Delphi 6 демонстрирующий получение информации о пользователях ОС Windows

Комментарии