Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#11
  Alt 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.
  Mit Zitat antworten Zitat