Советы по delphi \ Интернет и сети \ TCP/IP \ Как узнать, установлен ли на компьютере TCP-IP

---

uses Registry;

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('EnumNetworkMSTCP', False) then
    begin
      reg.GetKeyNames(RKeys);
      Result := RKeys.Count > 0;
    end;
  finally
    Reg.free;
    RKeys.free;
  end;
end;

Название: Как узнать, установлен ли на компьютере TCP-IP
Дата публикации: 2004-09-02 (2610 Прочтено)