Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Mar 24, 2003

IsWordInstalled - Checking whether MS Word is installed

' this code assumes that you have used this Imports statement
' Imports Microsoft.Win32

Function 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_ROOT\Word.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.Close
End Function

' Example
If IsWordInstalled() Then
    Console.WriteLine("Microsoft Word is installed")
Else
    Console.WriteLine("Microsoft Word is not installed")
End If
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date