Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Is TCPIP installed

Title: Is TCP/IP installed? Question: Is TCP/IP installed? Answer: Create a function that returns a boolean value. var regs: TRegistry; keys: TStrings; begin Result:=False; Try regs:= TRegistry.Create; keys:= TStringList.Create; regs.RootKey:=HKEY_LOCAL_MACHINE; try if regs.OpenKey ('\Enum\Network\MSTCP', False) Then begin regs.GetKeyNames (keys); if keys.Count 0 Then Result:=True; end; except end; finally keys.free; regs.free; end; end; the second try/except block only protect if there are some problem, but isn't VERY necessary. I hope this useful for you. LIMITATIONS ------------- Only for Win 9x. (thanks to anonymous friend)