Как узнать, установлен ли на компьютере TCP-IP

Советы » 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;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com