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)