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)