Alle User eines Rechners auflisten

[Luckie]

Das ist VCL Code. Hier ist das nonVCL Pendant:

Delphi-Quellcode:

procedure GetUsers;
var
  dwEntriesRead, dwEntriesTotal: DWORD;
  ui1, ui2 : Pointer;
  i : Integer;
  s : String;
begin
  ui2 := nil;
  SendDlgItemMessage(hTabDlgs[0], IDC_CB, CB_RESETCONTENT, 0, 0);
  if NetUserEnum(nil, 0, FILTER_NORMAL_ACCOUNT, ui1, MAX_PREFERRED_LENGTH, dwEntriesRead, dwEntriesTotal, nil) = NERR_SUCCESS then
  begin
    ui2 := ui1;
    for i := 0 to dwEntriesRead-1 do
    begin
      s := PUserInfo1(ui1)^.usri1_name;
      SendDlgItemMessage(hTabDlgs[0], IDC_CB, CB_ADDSTRING, 0, Integer(@s[1]));
      Inc(Integer(ui1), SizeOf(Pointer));
    end;
  end;
  NetAPIBufferFree(ui2);
  SendDlgItemMessage(hTabDlgs[0], IDC_CB, CB_SETCURSEL, 0, 0);
  s := Format('Anzahl der Benutzer: %d', [dwEntriesRead]);
  SendDlgItemMessage(hApp, IDC_STATUSBAR, SB_SETTEXT, 1, Integer(@s[1]));
end;

Geht beides ohne Probleme.