Жми-форум обо всём

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