[lestatgi]

Подскажите в каком направлении смотреть. Необходимо когда ко мне подключаются чтобы выдавало сообщение (имя компа подключен) подключение происходит когда заходят к примеру (\\komp) либо отправляют на подключенный принтер. вообщем та информация которая в администрирование>управление компьютером>сеансы.
Очень надо просто некогда не сталкивался. Заранее благодарен.

[poli-smen]

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

Подскажите в каком направлении смотреть. Необходимо когда ко мне подключаются чтобы выдавало сообщение (имя компа подключен) подключение происходит когда заходят к примеру (\\komp) либо отправляют на подключенный принтер. вообщем та информация которая в администрирование>управление компьютером>сеансы.
Очень надо просто некогда не сталкивался. Заранее благодарен.

По таймеру вызывай API-функцию NetSessionEnum.

[cotseec]

можно еще посмотреть в сторону WSAEventSelect

[lestatgi]

Уперся в такую проблему в хр выполняю

Код:

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

и подгружаю

Код:

 FLibHandle := LoadLibrary('NETAPI32.DLL');

все работает
а для windows 7 не могу найти как реализовать. подскажите где поискать или может кто то делал

[lestatgi]

аа все разобрался просто не хватило прав админа.

[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;

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

[lestatgi]

и еще вопрос в

Код:

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

вызываю

Код:

NetSessionDelNT(nil,CNameNT,nil);

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

[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 // Отключит все сессиси на локальном компьютере