Последнее, что нам предстоит рассмотреть, - это закрытие ресурса, открытого в сети. Для этого по нажатии кнопки Убить пишем следующий код:

procedure TMonitorForm.bnKi11 Click(Sender. TObject): begin
if IwResources.Selected = nil then exit: if bNT then
NetFi1eCloseNT(ni1.StrToInt(IwResources.Selected.Caption)) else
NetFi1eClose(ni1.StrToInt(IwResources.Selected.Capti on));

Здесь мы используем функцию NetFi leClose или NetFi leCloseNT. Они описываются таким образом:

function NetFileCloseNK ServerName: PWideChar;
5.9.5. Закрытие открытых ресурсов

Рис. 5.19. Результат работы программы

end:
Fileld: DWORD ): DWORD;
stdcall;
function NetFileCloseC
pszServer: PChar;
ulFileld: LongWord ): DWORD: stdcall:

В обоих вариантах всего два параметра - имя сервера, на котором нужно закрыть файл, и его идентификатор ID, полученный во время перечисления ресурсов. В качестве идентификатора передается заголовок элемента, выделенного в компоненте Li stVi ew. В стиле vsReport заголовком является первая колонка, то есть ID.

ПРИМЕЧАНИЕ -

Исходный код рассмотренного здесь примера находится на компакт-диске в каталоге Sources\ch05\MonitorResource2.

5.9.4. Просмотр открытых ресурсов || Оглавление || Заключение


Delphi в шутку и всерьез: что умеют хакеры



Новости за месяц

  • Декабрь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31