Отправляет 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

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

Лучшее из нашего FAQ   |x|
Как я могу определить доступные сервера приложений на этой машине через Registry?
Прочитайте ключ под HKEY_CLASSES_ROOT\CLSID\*, просматривая его насчет ключей, которые имеют подключ "Borland DataBroker". Эти вхождения и являются серверами приложений.

Ниже пример, который загружает имена доступных серверов приложений в Listbox:

procedure TForm1.FormCreate(Sender: TObject);
var

uses Registry;
  I: integer;
  TempList: TStringList;
begin
  TempList := TStringList.Create;
  try
    with TRegistry.Create do
    try
      RootKey := HKEY_CLASSES_ROOT;
      if OpenKey('CLSID', False) then
        GetKeyNames(TempList);
      CloseKey;
      for I := 1 to TempList.Count - 1 do
        if KeyExists('CLSID\' + TempList[I] 
          + '\Borland DataBroker') then
        begin
          if OpenKey('CLSID\' + TempList[I] + '\ProgID', False) 
            then begin
              Listbox1.Items.Add(ReadString(''));
              CloseKey;
            end;
        end;
    finally
      Free;
    end;
  finally
    TempList.Free;
  end;
end;

(Borland FAQ N587, переведен Акжаном Абдулиным)

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
ЛЯПЫ. Немного об пользовательских интерфейсах. Часть 2.
Как правило, тех, кто указывает на ошибки, не любят. Зачастую, в ответ они могут услышать - "Раз такой умный, то делай сам". В этом, есть доля истины, но согласитесь, кто-то же должен на эти самые ошибки (если они существуют) указать...
Другие сайты о DELPHI   |x|
Delphi
Конференция по Delphi, нетривиальные вопросы и доходчивые ответы, и не только от братьев по оружию, но и из самого Inprise
Опрос населения :)
Стоит ли устраивать встречи программистов в реале? (пирушки :)
»»» Обязательно!
»»» Иногда можно
»»» Я туда не пойду
»»» Категорически нет
Для души

Хокку дня
капли дождя
на стеклах ее очков: весна
уже недалеко

Афоризмы
Антон Павлович Чехов справедливо утверждал, что не существует национальной культуры, также, как не существует национальной таблицы умножения....

Фраза дня
И какой-то Win95 будет мне указывать, когда комп выключать?!

И на закуску коротенький анекдот
Сегодня возле Мадагаскара потерпел крушение российский рыболовный траулер "Непотопляемый". Команда, пьянствовавшая во Владивостоке, не пострадала.

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

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