Как узнать, установлен ли на компьютере TCP/IP
Как узнать, установлен ли на компьютере TCP/IP
Как узнать, установлен ли на компьютере TCP/IP 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;
