NetUserEnum die 2.

[himitsu]

Delphi-Quellcode:

        for Loop := 0 to EntriesRead - 1 do
          if not Callback(PUserInfo1(ui1)[Loop].usri1_name, EntriesRead, Data) then
            break;

oder

Delphi-Quellcode:

        for Loop := 0 to EntriesRead - 1 do
        begin
          if not Callback(PUserInfo1(ui1)^.usri1_name, EntriesRead, Data) then
            break;
          Inc(NativeUInt(ui1), sizeof(TUserInfo1));  // T statt P und Integer, falls NativeUInt noch nicht geht
        end;

PS: Ich würde den Callback noch so anpassen, daß man dort das ganze TUserInfo1 anstatt nur des Usermames übergibt. (damit nichts umsonst ausgelesen wird)