|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.06.2011, 16:38 | #1 |
Пользователь
Регистрация: 17.03.2011
Сообщений: 43
|
Получить компьютеры рабочей группы
Всем добрый вечер!
Помогите пожалуйста. Есть процедура procedure TForm1.FindAllComputers(Workgroup: String); для получения списка компьютеров рабочей группы. Как вызвать эту процедуру по нажатию кнопки? procedure TForm1.FindAllComputers(Workgroup: String); var Computer: array[1..500] of string[25]; ComputerCount: integer; EnumHandle: THandle; WorkgroupRS: TNetResource; Buf: array[1..500] of TNetResource; BufSize: cardinal; Entries: cardinal; Result: integer; i: integer; begin ComputerCount := 0; Workgroup := Workgroup + #0; FillChar( WorkgroupRS, SizeOf( WorkgroupRS ) , 0 ); With WorkgroupRS do begin dwScope := 2; dwType := 3; dwDisplayType := 1; dwUsage := 2; lpRemoteName := @Workgroup[1]; end; WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle ); Repeat Entries := 1; BufSize := SizeOf( Buf ); Result := WNetEnumResource( EnumHandle, Entries, @Buf, BufSize ); If ( Result = NO_ERROR ) and ( Entries = 1 ) then begin Inc( ComputerCount ); Computer[ComputerCount] := StrPas( Buf[1].lpRemoteName ); end; Until ( Entries <> 1 ) or ( Result <> NO_ERROR ); WNetCloseEnum( EnumHandle ); for i := 1 to ComputerCount do ListBox1.Items.Add( Computer[i] ); end; и еще если можно: Как выключить компьютер по сети? За ранее спасибо! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Промышленные компьютеры | Stilet | Компьютерное железо | 5 | 17.09.2010 22:36 |
Группы символов, состоящие только из латинских букв, если первая буква группы входит в нее еще только оди | Ela | Помощь студентам | 0 | 29.04.2010 13:41 |
Создание пользователя рабочей группы | Eseniya | Microsoft Office Excel | 5 | 28.12.2009 20:17 |
Строки(группы букв и группы знаков), Pascal | Mrs Smith | Помощь студентам | 1 | 10.12.2009 16:31 |
отобразить компьютеры рабочей группы | Briz | Работа с сетью в Delphi | 0 | 23.10.2007 10:43 |