На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> подлючен или нет TCP/IP? , через реестр
    Здрасти.
    как узнать (какой ключ в реестре Windows XP) подключен или нет протокол TCP/IP?
    я нашел:
    HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip
    далее идут параметры сетевых карт по идентификаторам...например:
    HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{2B8057FE-A9A6-472C-B57E-0F584217647F}
    где именно находится статус (установлен/не установлен, подключен/ не подключен) протокола TCP/IP?
      ExpandedWrap disabled
        function TCPIPInstalled: boolean;
        var
          Reg:   TRegistry;
          RKeys: TStrings;
        begin
         Result:=False;
         try
          Reg := TRegistry.Create;
          RKeys := TStringList.Create;
          Reg.RootKey:=HKEY_LOCAL_MACHINE;
          if Reg.OpenKey('\Enum\Network\MSTCP', False) Then
           begin
             reg.GetKeyNames(RKeys);
             Result := RKeys.Count > 0;
           end;
         finally
          Reg.free;
          RKeys.free;
         end;
        хмм...
        но ключа: HKEY_LOCAL_MACHINE\Enum\Network\MSTCP не существует...
          возможно надо проверить в ключе
          HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Enum
          параметр Count - если Count>0 - то значит установлен - но я не на 100% уверен что все именно так...
          1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0.5730 ]   [ 15 queries used ]   [ Generated: 24.10.26, 00:55 GMT ]