[poli-smen]

Сообщение от lestatgi

Код:

Var
NetSessionEnumNT:function(servername,
                        UncClientName,
                        username:PWChar;
                        level:DWORD;
                        bufptr:Pointer;
                        prefmaxlen:DWORD;
                        entriesread,
                        totalentries,
                        resume_handle:LPDWORD):DWORD; stdcall;

Рекомендую другое обявление функции NetSessionEnum:

Код:

type
  NET_API_STATUS = DWORD;

TNetSessionEnum = function (
      ServerName     : WideString;
      UncClientName  : WideString;
      Username       : WideString;
      Level          : DWORD;
      BufPtr         : Pointer;
      PrefMaxLen     : DWORD;
  var EntriesRead    : DWORD;
  var TotalEntries   : DWORD;
  var ResumeHandle   : DWORD): NET_API_STATUS; stdcall;

С таким удобнее работать