|
Как узнать, установлен ли на компьютере TCP-IPuses 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;
Название: Как узнать, установлен ли на компьютере TCP-IP Дата публикации: 2004-09-02 (2850 Прочтено) |
|
 |