Alle User eines Rechners auflisten

[Luckie]

Problem gelöst. War etwas blöd:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dwEntriesRead, dwEntriesTotal: DWORD;
  ui1, ui2 : Pointer;
  i : Integer;
begin
  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
      Listbox1.Items.Add(PUserInfo1(ui1)^.usri1_name);
      Inc(Integer(ui1), SizeOf(Pointer));
    end;
  end;
  NetAPIBufferFree(ui2);
end;