Определить Что Установлено

[dimat]

Всем привет!
У некоторых пользователей установлен MS Office, а у некоторых OpenOffice.
1. Какими способами возможно определить что установлено?
2. Как открыть указанный файл в Excel или Calc?

 

[morpheus]

под виндой

1. Реестр (ключи)
2. Попробовать создать сом-обьект мс оффиса и обработать ошибку

открывать файл в винде - через Shell - тогда будет открываться в программе по умолчанию

 

[Yakov]

Вот кусок кода, который делает, что надо. Указанный файл открывается той программой, которая ассоциирована с его типом.

	Private Sub openFile(fileName As String)
Dim objShell As Variant
Dim objFolder As Variant
Dim objFolderItem As Variant
Dim folder As String
Dim file As String
folder = Strleftback(fileName, "\")
file = Strrightback(fileName, "\")
Set objShell = CreateObject("Shell.Application")
If objShell Is Nothing Then
Print "shell object not created"
Exit Sub
End If
Set objFolder = objShell.NameSpace((folder))
If objFolder Is Nothing Then
Print "no folder: " + folder
Exit Sub
End If
Set objFolderItem = objFolder.ParseName(file)
objFolderItem.InvokeVerbEx("Open")
End Sub

 

[dimat]

Спасибо за ответы!

 

[morpheus]

Yakov
ого, а зачем если можно ещ' проще

Set WShell = CreateObject("WScript.Shell") 
ReturnCode = WShell.Run("C:\1.doc", 1, False)