Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Июнь 2003   →
 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
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 14.06.03 09:04

Кое-что из нашей кладовки   |x|
Лучшее из нашего FAQ   |x|
Как найти все компьютеры в рабочей группе? 

var
  Computer      : Array[1..500] of String[25];
  ComputerCount : Integer;

procedure FindAllComputers(Workgroup: String);
Var
  EnumHandle  : THandle; 
  WorkgroupRS : TNetResource; 
  Buf         : Array[1..500] of TNetResource; 
  BufSize     : Integer; 
  Entries     : Integer; 
  Result      : 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 ); 
end;  { Find All Computers }


Комментарий от McSimm:
Для Делфи 5 и выше (ниже - не проверял) надо объявлять переменные

  BufSize     : Cardinal;
  Entries     : Cardinal;

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Мир Borland Kylix. Обработка событий Qt в Kylix-приложении.
В предыдущей статье было описано обращение к методам объектов Qt library из программ, написанных на языке Object Pascal. В этой статье будет рассмотрена обработка событий Qt и создано демонстрационное приложение.
Новинки книжного рынка   |x|
Компьютерная графика. Энциклопедия
Книга адресована тем, кто хотел бы расширить свои профессиональные возможности в области компьютерной графики, в первую очередь: дизайнерам, иллюстраторам, художникам, разработчикам web-сайтов, а также всем желающим поближе познакомиться с увлекательным миром компьютерной графики и анимации. Прочитав ее, вы будете легко ориентироваться в разнообразии современных графических программ, овладеете популярными редакторами для создания растровой и векторной графики, познакомитесь с основами дизайна. Книга снабжена большим количеством примеров, иллюстрирующих работу различных графических программ, ее можно использовать и как учебник, и как подробное справочное руководство.
Автор: Рейнбоу В.
Другие сайты о DELPHI   |x|
Random Boolean
Очень молодой сайт о программировании на Delphi.
Здесь есть - Архив , Download, Компоненты, Форум...
Также есть возможность выложить здесь свою идею о
создании какой-либо программы...
» Оценка сайта: 2
Опрос населения :)
Что мешает плохому танцору?
»»» Эти штуки... ;)
»»» Танцовщица
»»» Крылья
»»» Оппозиция
»»» Что и хорошему
»»» Ничего мне не мешает!
Для души

Хокку дня
Бушует морской простор!
Далеко, до острова Садо,
Стелется Млечный Путь.

Афоризмы
Мудрость? Быть умным вовремя.

Фраза дня
Все гениальное просто...

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Омаха в Небраске (США) мужчинам запрещается брить волосы на груди.
В Неваде запрещено (США) ездить по шоссе на верблюде .

И на закуску коротенький анекдот
Беломорканал... Mercedes Benz...
Казалось бы, никакой связи... Так и есть.

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=8120

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное