На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Как узнать, установлен ли на компьютере TCP/IP
    Song
    Сообщ. #1 ,
      Unregistered

      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;
      1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
      0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0.0659 ]   [ 15 queries used ]   [ Generated: 26.08.26, 04:05 GMT ]  
        Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.