[poli-smen]

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

и еще вопрос в

Код:

var
NetSessionDelNT:function(ServerName,
                        UncClientName,
                        username:PWChar):DWORD; stdcall;

вызываю

Код:

NetSessionDelNT(nil,CNameNT,nil);

CNameNT имя компьютера все работает а как передать чтобы удалить все сессии?

Если в параметре UncClientName указать nil, то будут отключены все сессии указанного пользователя.
Если в параметре username указать nil, то будут отключены указанные сессии всех пользователей.

Рекомендую использовать такое объявление функции :

Код:

type
TNetSessionDel = function(
  ServerName    : WideString;
  UncClientName : WideString;
  UserName      : WideString): NET_API_STATUS; stdcall;

Тогда чтобы отключить все сессии всех пользователей просто указываешь пустую строку в параметрах UncClientName и UserName.
Пример:

Код:

  if NetSessionDel ('', '', '') = NO_ERROR then // Отключит все сессиси на локальном компьютере