Подключен ли в своем компе протокол TCP/IP?

Материал из DRKB


Думаю что надёжнее всего "ping 127.0.0.1" потому что другие методы не дадут уверенности что протокол работает нормально.

Почему именно ping 127.0.0.1?

127.0.0.1 - или по другому localhost - это предопределённый протоколом TCP/IP собственный (внутренний) адрес компьютера, так что если TCP/IP установлен и работает, то этот адрес точно есть и должен пинговаться без проблем, кроме того он пингуется без выхода в сеть, и удобен если надо отличить неработоспособность протокола (драйвера) от поломок вне компьютера(хаб, свич, разъёмы, провода, сервера, другие компьютеры).


Author: Vit
Source: http://forum.vingrad.ru
ID: 03342



uses Registry;

function TCPIPInstalled: Boolean;
var
  Reg: TRegistry;
  RKeys: TStrings;
begin
  Result := False;
  Reg := TRegistry.Create;
  RKeys := TStringList.Create;
  try
    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;
end;


Source: http://forum.sources.ru
ID: 03343