[lestatgi]

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

[poli-smen]

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

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

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

[cotseec]

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

[lestatgi]

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

Код:

1 2 3 4 5 6 7 8 9 10

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

и подгружаю

Код:

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

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

[lestatgi]

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

[poli-smen]

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

Код:

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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]

и еще вопрос в

Код:

1 2 3 4

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

вызываю

Код:

1	NetSessionDelNT(nil,CNameNT,nil);

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

[poli-smen]

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

и еще вопрос в

Код:

вызываю

Код:

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

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

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

Код:

1 2 3 4 5

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

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

Код:

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