Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
11. Feb 2003, 11:27
Delphi-Quellcode:
var
dwEntriesRead, dwEntriesTotal: DWORD;
lgi01, lgi02 : Pointer;
i : Integer;
begin
lgi02 := nil;
Listbox1.Clear;
if NetLocalGroupEnum(nil, 0, lgi01, MAX_PREFERRED_LENGTH, dwEntriesRead, dwEntriesTotal, nil) = NERR_SUCCESS then
begin
lgi02 := lgi02;
for i := 0 to dwEntriesRead-1 do
begin
Listbox1.Items.Add(PLocalGroupInfo0(lgi01)^.lgrpi0_name);
Inc(Integer(lgi01), SizeOf(Pointer));
end;
end;
NetAPIBufferFree(lgi02);
Nur aus Neugier: Was soll das eigentlich werden, wenn es fertig ist?
Michael Ein Teil meines Codes würde euch verunsichern.
|
|
Zitat
|