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

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

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

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

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

←   Октябрь 2001   →
 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
Автор
Сергей

Статистика

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

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


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Обновился дайджест по FAQ. Скачать можно здесь
Кое-что из нашей кладовки   |x|
  • Label3D Merlin delphi@mastak.com   (22.02.01 16:06)
    То, что должен написать каждый! :)
    TLabel с эффектом трехмерности, градиентной заливкой и прочими наворотами.
    »»» Скачать: исходные тексты (2кб)
  • Русифицированный HELP для Delphi Merlin delphi@mastak.com   (12.02.01 06:30)
    У нас вы можете скачать русский HELP для Delphi (переведено не много) 2,2Мб
    »»» Скачать: исходные тексты
Лучшее из нашего 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 }

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

Обсуждается в конференциях   |x|
  • Архивация данных
    Кто подскажет, как программно, легко и просто заархивировать и разархивировать набор файлов и дирректорий в фоновом ...
  • Блокировка загрузки десктопа
    Привет всем!
  • Дискуссия по MySQL.
    Господа, как вы смотрите на использование MySQL в роли замены MSSQL (как бесплатная альтернатива)? Не могли бы вы ...
  • ограничения бде
    Подскажите, какие ограничения на число одновременных подключений к базе Парадокс накладывают стандартные настройки БДЕ, ...
  • RX lib
    Есть ли у кого-нибудь RX lib. Если не жалко, киньте мне:-))))) на vlad.xn@nng.ru
  • Определение номера
    У меня есть SoundBlaster, имеется телефон. Можно ли каким-то образом определять какой номер набирают на телефоне, а ...
  • Прозрачность окон
    Чтобы поменять прозрачность окна под Win2000, например, сделать его ПОЛупрозрачным я пишу
У нас большой выбор статей   |x|
Мир Borland Kylix. Обработка событий Qt в Kylix-приложении.
В предыдущей статье было описано обращение к методам объектов Qt library из программ, написанных на языке Object Pascal. В этой статье будет рассмотрена обработка событий Qt и создано демонстрационное приложение.
Другие сайты о DELPHI   |x|
Проблемы и решения в Delphi
Информация по Delphi, исходники программ, статьи, и многое другое. Книги и работа, если она есть
Опрос населения :)
Готовится к выпуску журнал "Мастера DELPHI". Готовы ли вы подписаться на него?
»»» Да, на сколько возможно
»»» Да, на 6 месяцев
»»» Да, на 3 месяца
»»» Да, на 1 месяц
»»» Нет, не готов
»»» Не знаю
Журнал "Мастера DELPHI"  |x|
Давно витающая в воздухе нашего сайта идея создания журнала, посвященного всеми нами любимой среде разработки Delphi, похоже, обретает зримую форму. Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
Для души

Хокку дня
Преследовавшие друг друга кошки
замирают -
удар грома.

Афоризмы
Если женщина хочет отказать, она говорит "нет". Если женщина пускается в объяснения, она хочет, чтобы ее убедили (Альфред де Мюссе)

Фраза дня
Студент не знает в двух случаях: либо еще не сдавал, либо уже сдал.

И на закуску коротенький анекдот
Два пенсионера собираются на рыбалку. Один другого спрашивает:
- А не боишься квартиру без присмотра оставлять?
- Да нет. Я в дверь записочку вставил.
- Какую?
- "Здорово, Вован! Я отвалил ненадолго на стрелку. Срочно выйди на гнуса или шершавого, передай, что ствол у меня. Хилого вчера замочили. Утюг."

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

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

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