在这个地方枚举到的子键 
  sServiceRegKey := 
'\SYSTEM\CurrentControlSet\Services\Class\'; 

  regRootKey.RootKey := HKEY_LOCAL_MACHINE; 
  regRootKey.OpenKeyReadOnly(SNetCardRegKey); 
  sNetCardDriverName := regRootKey.ReadString('Driver'); 

然后: 
  sTCPIPRegKey := sServiceRegKey + sNetCardDriverName; 
  regRootKey.OpenKeyReadOnly(sTCPIPRegKey); 

最后获得IP地址和子网掩码: 
sIPAddress := regRootKey.ReadString('IPAddress'); 
sNetMask := regRootKey.ReadString('IPMask');