Hi Christian,
also, ich gehe davon aus, dass PUSER_INFO_0 (bzw. _1) ein Pointer auf _USER_INFO_0 ist (
type PUSER_INFO_0 = ^_USER_INFO_0
).(Der Typ selber existiert in der JwaLM-
Unit nämlich nicht)
Dann habe ich den Source wie folgt geschrieben:
Delphi-Quellcode:
{33} if NetUserEnum(nil, 0, FILTER_NORMAL_ACCOUNT, aBuffer, MAX_PREFERRED_LENGTH, iUser, iUser, nil) = NERR_SUCCESS then begin
{34} while aBuffer <> nil do begin
{35} ListBox1.Items.Add(aBuffer.usri0_name);
{36} inc(aBuffer);
{37} end;
{38} end;
Da kommt folgender Fehler.
Zitat von
Delphi-Debugger:
[Error] Unit1.pas(33): Types of actual and formal var parameters must be identical
Der Fehler wird gemeldet an der Stelle, wo aBuffer in NetUserEnum steht.
Chris