' this code assumes that you have used this Imports statement' Imports Microsoft.Win32Function IsWordInstalled() As Boolean ' Define the RegistryKey objects for the registry hives. Dim regClasses As RegistryKey = Registry.ClassesRoot ' Check whether Microsoft Word is installed on this computer, ' by searching the HKEY_CLASSES_ROOTWord.Application key. Dim regWord As RegistryKey = regClasses.OpenSubKey("Word.Application") If regWord Is Nothing Then IsWordInstalled = False Console.WriteLine("Microsoft Word isn't installed") Else IsWordInstalled = True End If ' Always close Registry keys after using them. regWord.CloseEnd Function' ExampleIf IsWordInstalled() Then Console.WriteLine("Microsoft Word is installed")Else Console.WriteLine("Microsoft Word is not installed")End If


What We Should Expect from Cell Phone Tech in the Near Future
The earliest cell phones included boxy designs full of buttons and antennas, and they only made calls. Needless to say, we’ve come a long way from those classic brick phones