Small tip to detect if MS Word is installed on the PC

This piece of code was written for an Italian newsgroup, but I feel like sharing it here.
The basic working is simple:

- It detects if a .doc extension is registered
- If there's any, it goes checking which program is associated with it
- If the program is different from word.exe then it returns false
- Otherwise returns true

Here is the code:

procedure TForm1.Button1Click(Sender: TObject);

var Reg : TRegistry;

  KeyToOpen : String;

  Value : String;

begin

Reg := TRegistry.Create;

Reg.RootKey := HKEY_CLASSES_ROOT;

if Reg.OpenKeyReadOnly( '.doc' ) then

begin

  KeyToOpen := Reg.ReadString( '' );

  Reg.CloseKey;

  if Reg.OpenKeyReadOnly( KeyToOpen+'\shell\open\command' ) then

  begin

    Value := Reg.ReadString( '' );

    if Pos( 'word.exe',Value ) > 0 then

      ShowMessage( 'Word is installed' )

    else

      ShowMessage( 'Word isn't installed' );

  end;

end

else begin

       ShowMessage( 'Word isn't installed' );

     end;

end;

Obviously, you'll have to include the Registry unit in one of your uses clauses,
preferably implementation one( to avoid unnecessary noise in the interface part )

Cheers