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

dimat

Well-Known Member
Lotus team
31.07.2008
516
0
31
Киров
#1
Всем привет!
У некоторых пользователей установлен MS Office, а у некоторых OpenOffice.
1. Какими способами возможно определить что установлено?
2. Как открыть указанный файл в Excel или Calc?
 

morpheus

скриптописец
07.08.2006
3 915
1
34
Украина, Киев
#2
под виндой

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

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

Yakov

Гость
#3
Вот кусок кода, который делает, что надо. Указанный файл открывается той программой, которая ассоциирована с его типом.
Код:
	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