AW: NetUserEnum die 2.
Delphi-Quellcode:
oder
for Loop := 0 to EntriesRead - 1 do
if not Callback(PUserInfo1(ui1)[Loop].usri1_name, EntriesRead, Data) then break;
Delphi-Quellcode:
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)
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; |
AW: NetUserEnum die 2.
Perfekt. Die zweite Möglichkeit funktioniert. Hm, dafür habe ich andere Funktionen. Und davon mal abgesehen, verwend eich im Usermanager andere Routinen. ;)
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:11 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz